Дано трехзначное число.найти произведение его цифр.составить на языке паскаль (программу) желательно - id861736820220216 от Adelina12005 16.02.2022 13:32

Question

Информатика: Дано трехзначное число.найти произведение его цифр.составить на языке паскаль (программу) желательно на тетрадьном листе.

Adelina12005 · Accepted Answer

1) program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
  mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.

Дано трехзначное число.найти произведение его цифр.составить на языке паскаль (программу) желательно на тетрадьном листе.

MOGZ ответил