Паскаль. В первой строке программы задаётся кол-во чисел, не превышающих 300. Найти максимальное число, оканчивающееся на 3.

Question

Информатика

Веста

10 июля, 17:51

Паскаль. В первой строке программы задаётся кол-во чисел, не превышающих 300. Найти максимальное число, оканчивающееся на 3.

+1

Ответы (1)

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

Анект · Answer 1

Var i, n, x:integer;

begin

write ('Введите число: ');

readln (n);

for i:=1 to n do

if i mod 10 = 3 then x:=i;

writeln (x)

end.

Пример:

Введите число: 100

93