Вот программа:
Var
A:array[1..20] of real;
i:integer;
S,P:real;
Begin
S:=0;
P:=1;
WriteLn('Введите 20 чисел:');
For i:= 1 to 20 do
Begin
Read(A[i]);
S:=S+A[i];
P:=P*A[i];
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
Вот блок-схема:
В первом вложении приведена блок-схема по ГОСТ 19.701-90 (ISO 5807-85). СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ. Обозначения условные и правила выполнения.
Алгоритм титрования на АЯ (Кумир) приведен во втором вложении.
Хоть какие числа будут даны чтоб решать данное уравнение ? Если а и б то алгоритм будет выглядеть так:
a*x+b=0 -> a*x=(-b) -> x=(-b)/a
1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
Var
m, n, p: integer;
begin
Write('Введите свой номер в группе: ');
Readln(n);
n := n * 12;
p := 1;
repeat
m := n mod 10;
p := p * m;
n := n div 10
until n = 0;
Writeln('Результат ', p)
end.
Тестовое решение:
Введите свой номер в группе: 13
Результат 30