Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Program zadacha3_6;
|
|
var s, а, b: longint;
Begin
writeln('Введіть s'); readln(s);
for а: =1 to s do
for b: =1 to s do
if a*b=s then writeln ('сторони ', a, ' і ', b);
End.
Дану задачу можна було вирішити, використовуючи тільки один цикл. Подумайте, як це зробити.
Дані натуральні числа n, m. Отримати всі натуральні числа, менші n, сума квадратів цифр яких рівна m.
Program zadacha3_7;
var n, m, i, а, sum, cif: longint;
Begin
writeln('введіть n і m'); readln(n, m);
for i: =1 to n do
Begin
а: =i; sum: =0;
while a> 0 do
Begin
cif: =a mod 10;
sum: =sum+sqr(cif);
а: =a div 10;
End;
if sum=m then write(i, ' ');
End;
End.
 |
Знайти всі рішення заданого числового ребусу. Кожній букві відповідає деяка цифра. Причому однаковим буквам відповідають однакові цифри, різним буквам - різні цифри.
Оскільки тут всього три букви, то для вирішення достатньо написати три вкладені цикли, і перебрати всі варіанти складання тризначних чисел.
|
|