4lexei
Но у вас же n(d) не увеличивается на один пока условие не выполнится. Тогда ваше решение можно записать и без условного оператора, после readln(C); n:=(c-a) div b; writeln(‘n= ’, n); end. (Я написал n, а не d как у вас, потому что в условии именно эта буква) По сути говоря мне нужно записать решение, которое самое нижнее на фотографии, в Pascal abc.
Answers & Comments
var A, B, C,d :integer;
begin
readln (A);
readln (B);
readln (C);
if (A<=C) then
d:=C-A;
writeln (d div B);
end.
Тогда ваше решение можно записать и без условного оператора, после readln(C);
n:=(c-a) div b;
writeln(‘n= ’, n);
end. (Я написал n, а не d как у вас, потому что в условии именно эта буква)
По сути говоря мне нужно записать решение, которое самое нижнее на фотографии, в Pascal abc.