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

Question

Информатика

Сильвестра

14 августа, 12:38

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

+2

Ответы (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