Определить максимальное трёхзначное целое

число, которое нацело делится на 21.

Вывести значения: делимое число, остаток от деления на 21 и целое

частное для каждого шага алгоритма.

Отдельной строкой вывести ответ.

написать прогу в паскале

Question

Информатика

Илиодор

23 октября, 13:01

Определить максимальное трёхзначное целое

число, которое нацело делится на 21.

Вывести значения: делимое число, остаток от деления на 21 и целое

частное для каждого шага алгоритма.

Отдельной строкой вывести ответ.

написать прогу в паскале

+3

Ответы (1)

Знаете ответ?

Бояна · Answer 1

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.