Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1 и 1 и 1 пхпхпхпхпх игмшишишишишиш
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.
стр1: 'дерево';
стр2: 'обработка';
стр3: стр1+стр2;
стр3: ='деревообработка';
Популярные вопросы