пишет что нужен компилятор, но где и какой

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: пишет что нужен компилятор, но где и какой

пишет что нужен компилятор, но где и какой

qwasoc20 » 10 дек 2017, 11:33

var k,a,b,c: longint ;
begin
k:=0;
readln (a,b,c);
if (a mod c)= 0 then
begin
while a<=b do
begin
a:=a+c;
k:=k+1;
end;
end
else
begin
while ((a<b) and (a mod c<>0)) do
begin
a:=a+1;
and;
while a<=b do
begin
a:=a+c;
k:=k+1;
end;
end;
writeln (k);
end.

Вернуться к началу