Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
qbasic:
input "число а=", a
x = a
do
x = x ^ 2 + 1
n = n + 1
loop until x > = 1000000
print a, x, n
max(n) = 7, при a = 0
файл с исходным текстом программы на паскале должен иметь расширение pas.
var x,x1: integer;
s: string;
begin
read(x);
s: =str(x);
x1: =int(s[3]+s[2]+s[1]);
writeln(x-x1);
end.
program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.
Популярные вопросы