Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
П
Объяснение:ПАВ
program first;
var z,d,k: integer;
begin
writeln('input z,d,k');
readln(z,d,k);
if (d> =z) then
d: =d-z
k: =k+1
writeln(d,' ',k);
readln;
end.
21 24 27 30 33 36 39 42 45 48
Популярные вопросы