Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
2, 3, 6, 18, 108
каждый член последовательности начиная с третьего равен произведению двух предыдущих:
2 * 3 = 6
3 * 6 = 18
6 * 18 = 108
program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.
Популярные вопросы