4 - B. По линейке форматирования.
5 - А. Выбрав одну колонку.
6 - С. 12.
Вопросы надеюсь придумаешь сама :3
1.
var n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i,' ',i*i*i);
end.
Пример:
4
<span>1 1
2 8
3 27
4 64
2.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=0 then s:=s+i;
writeln('s = ',s);
end.
Результат:
<span>s = 2430
3.
var n:integer;
begin
readln(n);
writeln('3 * ',n,' = ',3*n);
end.
Пример:
5
<span>3 * 5 = 15
4.
var n:integer;
begin
readln(n);
writeln(n+1+(n+1) mod 2);
end.
Пример:
8
10</span></span></span>
Var N,P:integer; f:text;
Begin
Assign(f,'change.txt');
Reset(f);
Readln(f,N);
P:=1;
while P*10 < N do P:=P*10;
N:=N div P + (N mod P div 10) * 10 + (N mod 10) * P;
Writeln(N);
Close(f);
End.
Секдиат - дискета, <span>ппрсиау - папирус.</span>