Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
системный блок
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.
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
б< т
к< л
с< е
липа ниже березы
к< л< б< т
сосна выше тополя
к< л< б< т< с< е
самое высокое ель
самое низкое клен
Популярные вопросы