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

Question

Информатика

Сильвестра

18 октября, 05:47

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

+3

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