Скласти алгоритм для знаходження суми або добутку елементів числового ряду, який задано формулою. (Виде - id1457304420220319 от Jenellya 19.03.2022 18:04

Question

Информатика: Скласти алгоритм для знаходження суми або добутку елементів числового ряду, який задано формулою. (Виде блок схемы)

Jenellya · Accepted Answer

//прога на Pascal`e
var
a: array of int64;
n: longint;
i : byte;
begin
write ('Введите кол-во чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;

for i:=0 to n-1 do
begin
writeln ('');
writeln ('Число ', a[i], ':');
if (a[i] mod 2) = 0 then writeln ('Четное') else writeln ('Нечетное');
if (a[i] mod 3) = 0 then writeln ('Кратно 3-ем') else writeln ('Не кратно 3-ем');
if (a[i]<10) or (a[i]>99) then writeln ('Не 2-значное') else writeln ('2-значное');
end;
end.

Скласти алгоритм для знаходження суми або добутку елементів числового ряду, який задано формулою. (Виде блок схемы)

MOGZ ответил