Дистанционная подготовка: задача 3058 паскаль
задача 3058 паскаль
от Андрей Тимохович - Пятница 30 Сентябрь 2016, 13:44
  var a,b,c,d:integer;
begin
readln (b);
a:=1;
c:=1;
while c mod 0 do;
begin
c:=c+1;
end;
writeln (c );
end.
почему-то кампелятору не нравится строка с mod.
помогите решить пж.
Re: задача 3058 паскаль
от Андрей Тимохович - Пятница 30 Сентябрь 2016, 14:11
  var n,a:longint;
begin
read(n);
a:=2;
while (n mod a>0) do
a:=a+1;
write(a);
end.