Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat)

@slava.m-rov · Регистрация: 14.08.2012

2...Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat)

@newyork7776 · 23.05.2013, 23:59

While

Pascal

program project_one;
var n:integer;
begin
write('Emter number = ');readln(n);
while ((n mod 19) <> 0) do
         inc(n);
writeln(n);
end.

@slava.m-rov 0 / 0 / 0 Регистрация: 14.08.2012 Сообщений: 100
		1
	Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat) 22.05.2013, 22:08. Показов 1492. Ответов 1 Метки нет (Все метки) 2...Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat) 0

	23.05.2013, 23:59

Решение