Var
n, a, pos, neg, null, i: integer;
begin
pos := 0;
neg := 0;
null := 0;
writeln('Введите N:');
readln(n);
writeln('Введите N целых чисел:');
for i := 1 to n do
begin
read(a);
if(a < 0) then neg := neg + 1;
if(a > 0) then pos := pos + 1;
if(a = 0) then null := null + 1;
end;
writeln('Положительных чисел: ', pos);
writeln('Отрицательных чисел: ', neg);
writeln('Нулей: ', null);
end.
Т<span>естовые решения:
1)</span>ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
Var a:integer;
begin
writeln('Введите число ');
readln (a);
if (a div 10 = a mod 10) and (a>9) then
writeln ('число симметричное ')
else
writeln('число не симметричное');
end.
Нач
нц
пока справа свободно вправо
кц
нц
пока снизу свободно вниз
кц
нц
пока слева не свободно вверх
кц
нц
пока слева свободно влево
кц
кон
Ответ А)
Непонятно, что тут надо обосновывать?
Формула площади круга S=πR², в качестве π принято значение 3.14, в качестве R - значение 12.
3.14×12² = 3.14×144 = 452.16