Напишите программу, которая выводит на экран трехзначные числа, кратные 3. Программа на PascalABC с массивом.
Ответы
Ответ дал:
0
program massive;
varI : integer;number : array [1..3] of integer;
beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;
end.
varI : integer;number : array [1..3] of integer;
beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;
end.
Ответ дал:
0
program massive;
var
I : integer;
number : array [1..3] of integer;
begin
number[1] := 100;
number[2] := 103;
number[3] := 106;
for I := 1 to 3 do
begin
writeln(number[I]);
end;
end.
var
I : integer;
number : array [1..3] of integer;
begin
number[1] := 100;
number[2] := 103;
number[3] := 106;
for I := 1 to 3 do
begin
writeln(number[I]);
end;
end.
Ответ дал:
0
Program n1;
var a: array[100..999] of integer;
i: integer;
begin
for i:=100 to 999 do a[i]:=i;
for i:=100 to 999 do if a[i] mod 3=0 then write(a[i],' ');
end.
var a: array[100..999] of integer;
i: integer;
begin
for i:=100 to 999 do a[i]:=i;
for i:=100 to 999 do if a[i] mod 3=0 then write(a[i],' ');
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад