Определить максимальное трёхзначное целое число, которое нацело делится на 21. Вывести значения: делимое число, остаток от деления на 21 и целое частное для каждого шага алгоритма. Отдельной строкой вывести ответ. написать про...
Определить максимальное трёхзначное целое
число, которое нацело делится на 21.
Вывести значения: делимое число, остаток от деления на 21 и целое
частное для каждого шага алгоритма.
Отдельной строкой вывести ответ.
написать прогу в паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram X;
var
max, i: longint;
begin
max:=0;
for i := 100 to 999 do
begin
writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );
if (i mod 21) = 0 then max := i
end;
writeln('Ответ: ', max)
end.
Не нашли ответ?
Похожие вопросы