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

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
qwasoc20
Сообщения: 1
Зарегистрирован: 10 дек 2017, 10:55

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.
Ответить