Pascal для новичков a. найди число- 0 имя входного файла стандартный ввод имя выходного файла стандартный вывод ограничение по времени 2 секунды ограничение по памяти 64 мегабайта дано число n. необходимо найти минимальное число, большее n, которое нацело делится на 19. формат входных данных вводится целое число n (1≤n≤230). формат выходных данных требуется вывести искомое число.

gadzila1236 gadzila1236    3   27.04.2019 11:24    0

Ответы
юля2634 юля2634  09.06.2020 00:07
Var n, m:integer;
begin
read(n);
m:=n+1;
while m mod 19<>0 do begin
if (m>n) and (m mod 19=0) then break;
m:=m+1;
end;
write(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика