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

Question

Информатика

Евлалия

1 января, 06:56

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

+4

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