Question

1. составить программу вывода на экран всех трехзначных чисел, кратных 9. (паскаль, тремя способами) 2. Составить программу вычисления суммы всех трехзначных чисел, кратных 17.(паскаль, тремя способами)

Answer 1

1)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.

2)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.

Answer 2

Конечно! Вот три способа написания программы на языке Паскаль для каждой из задач.

Программа вывода на экран всех трехзначных чисел, кратных 9:

1. Способ 1:

pascalCopy code
program MultiplesOf9;
var
  i: integer;
begin
  for i := 100 to 999 do
  begin
    if i mod 9 = 0 then
      writeln(i);
  end;
end.

2. Способ 2:

pascalCopy code
program MultiplesOf9;
var
  i: integer;
begin
  i := 100;
  while i <= 999 do
  begin
    if i mod 9 = 0 then
      writeln(i);
    Inc(i);
  end;
end.

3. Способ 3:

pascalCopy code
program MultiplesOf9;
var
  i: integer;
begin
  i := 100;
  repeat
    if i mod 9 = 0 then
      writeln(i);
    Inc(i);
  until i > 999;
end.

Программа вычисления суммы всех трехзначных чисел, кратных 17:

1. Способ 1:

pascalCopy code
program SumOfMultiplesOf17;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 100 to 999 do
  begin
    if i mod 17 = 0 then
      sum := sum + i;
  end;
  writeln('Сумма:', sum);
end.

2. Способ 2:

pascalCopy code
program SumOfMultiplesOf17;
var
  i, sum: integer;
begin
  sum := 0;
  i := 100;
  while i <= 999 do
  begin
    if i mod 17 = 0 then
      sum := sum + i;
    Inc(i);
  end;
  writeln('Сумма:', sum);
end.

3. Способ 3:

pascalCopy code
program SumOfMultiplesOf17;
var
  i, sum: integer;
begin
  sum := 0;
  i := 100;
  repeat
    if i mod 17 = 0 then
      sum := sum + i;
    Inc(i);
  until i > 999;
  writeln('Сумма:', sum);
end.

Надеюсь, эти программы помогут вам!