Var
k: integer;
m: real;
begin
writeln('Введите расстояние в километрах');
read(k);
m := k * 0.62;
writeln(k, ' км = ', m:0:2, ' миль');
readln;
end.
Известно количество байт для цвета ОДНОГО пикселя.
Известна ширина и высота фотографии в ПИКСЕЛЯХ.
Неужели трудно все перемножить?
Ответ 18 834 234 байт.
А) if (x >= m) and (x <= n) then written('True') else Writeln('False');
b) if (c*c = a*a + b*b) then written('True') else writeln('False');
в)if (x > 0) and (y > 0) then written('True') else writeln('False');
––––––––––––––––––––––––––––––––––––––
Кнопка 'спасибо' чуть ниже
Описание алгоритма нахождения НОД делением
1 - <span>Большее число делим на меньшее.
2 - Если делится без остатка, то меньшее число и есть НОД.
3 - Если есть остаток, то большее число заменяем на остаток от деления.
4 - <span>Переходим к пункту 1.
Пример такой:
</span></span>Найти НОД для 30 и 18.
30/18 = 1 (остаток 12)
18/12 = 1 (остаток 6)
12/6 = 2 (остаток 0). Конец: НОД – это делитель. НОД (30, 18) = 6