Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
program vvl;
var x: integer;
v: real;
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
2^3 = 8 цветов (скорее всего оттенки серого)
var i: integer;
i: =16;
repeat
if i mod 2=0 then writeln(i);
i: =i+1;
until i> 24
Популярные вопросы