Хех, тоже Апробация...ответом будет 101
Begin
writeln('_______________________¶¶¶¶¶¶¶¶¶¶1');
writeln('______________________¶¶¶¶¶¶¶¶¶¶¶¶1');
writeln('____________________¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('__________________¶¶¶_¶¶¶¶____¶¶¶¶¶¶¶¶');
writeln('_________________¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');
writeln('________________¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('___________¶____¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');
writeln('__________¶_____¶¶¶¶_¶¶¶¶¶¶____¶¶¶_¶¶¶¶¶1');
writeln('¶_________¶_____¶¶¶¶¶_¶¶¶¶¶_____¶¶¶¶¶¶¶¶');
writeln('_¶_______¶1______¶¶¶¶_¶¶¶¶_______¶¶¶¶¶¶1');
writeln('_¶¶______¶¶______¶¶¶¶_¶¶¶¶________¶¶¶¶1');
writeln('__¶_____¶_¶¶_____¶¶¶¶_¶¶¶¶');
writeln('__¶¶____¶__¶_____¶¶¶¶¶_¶¶¶');
writeln('__¶¶¶___¶__¶______¶¶¶¶_¶¶¶¶');
writeln('___¶¶¶¶¶_¶_¶______¶¶¶¶¶_¶¶¶¶');
writeln('___¶¶_¶¶¶¶¶1_______¶¶¶¶¶¶¶¶¶¶1');
writeln('__¶__¶¶¶¶¶¶¶¶1______¶¶¶¶¶¶¶¶¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1_____¶¶¶¶¶_¶¶¶¶¶');
writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');
writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');
writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');
writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');
writeln('____¶¶¶_¶____¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');
writeln('_______¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('_____¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_____¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶____¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');
writeln('_____¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');
writeln('_______¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');
writeln('________¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');
writeln('__________¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');
writeln('___¶¶¶¶¶¶¶¶¶¶¶¶____¶¶¶¶___¶¶¶___¶¶¶¶¶');
writeln('__¶¶______¶¶¶¶¶¶¶¶¶¶¶____¶_¶¶¶¶¶¶¶¶');
writeln('_¶¶____¶¶¶______________¶¶¶¶¶¶¶¶');
writeln('_¶___¶¶¶¶_¶¶___________¶¶');
writeln('¶___¶¶¶¶_¶¶¶¶¶_______¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶________1¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶¶_____¶¶¶_¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶_____¶¶¶¶¶_¶¶');
writeln('____¶¶¶¶¶_¶¶¶¶_____¶¶¶¶¶_¶¶');
writeln('____¶¶¶¶¶_¶¶¶¶_____¶¶¶¶¶¶_¶¶');
writeln('_____¶¶¶¶_¶¶¶______¶¶¶¶¶¶_¶¶');
writeln('______¶¶¶¶_¶¶______¶¶¶¶¶¶¶_¶');
writeln('________¶¶¶¶________¶¶¶¶¶¶_¶');
writeln('_________¶¶¶__________1¶¶¶¶¶');
writeln('__________¶¶_____________1¶¶');
writeln('___________¶_______________¶');
writeln('____________¶_______________¶');
end.
//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.
Решение
Человек лучше понимает и запоминает ту
информацию, которая представлена наглядно - с помощью рисунков,
фотографий, схем, диаграмм. Эту информацию легче анализировать.
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.