Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program abc;
var i, b, c: integer;
var a: array [1..10] of integer;
begin
for i: =1 to 10 do
writeln ('введите число');
readln (a[i]);
end;
if a[i] mod 2=0 then a[i]: =a[i]^2 else a[i]: =a[i]*2;
writeln (a[i]);
end.
х = log₂ n;
х = log₂ 12 бит.
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Популярные вопросы