Question

Решите задачи на Паскале: 1) Из введенной последовательсти чисел, найдите количество чисел, кратных 3. 2) Из введенной последовательности чисел, найдите трёхзначные числа. 3)Написать программу для подсчета суммы квадратов чисел от 1 до 10.

Answer 1

Ответ:

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var A := ReadSeqInteger('enter seqeunce: ',ReadInteger('seq length: '));

 A.Where(p -> p mod 3 = 0).Count.Println;

end.

#2

begin

 var A := ReadSeqInteger('enter seqeunce: ',ReadInteger('seq length: '));

 A.Where(p -> (p>=100) and (p <= 999)).ToList.Println;

end.

#3

begin

 Range(1,10).Select(p -> p * p).sum.Println;

end.

Объяснение:

Answer 2

Ответ:

var n,a,b,c: integer;

begin;

read(n);//количество чисел в последовательности

for a:=1 to n do begin

 read(b);

 if (b mod 3)=0 then c:=c+1;

 end;

 write (c);

end.

var n,a,b,c: integer;

begin;

read(n);//количество чисел в последовательности

for a:=1 to n do begin

 read(b);

 if (b div 100)>0 then c:=c+1;

 end;

 write (c);

end.

var n,a,b,c: integer;

begin;

for a:=1 to 10 do begin

c:=c+(a*a);

 end;

 write (c);

end.

Объяснение:

Answer 3

Конечно, вот решение задач на языке Паскаль:

1. Найдите количество чисел, кратных 3:

pascalCopy code
program CountMultiplesOfThree;
var
  n, num, count: integer;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);

  count := 0;
  writeln('Введите числа:');
  for i := 1 to n do
  begin
    readln(num);
    if num mod 3 = 0 then
      count := count + 1;
  end;

  writeln('Количество чисел, кратных 3:', count);
end.

2. Найдите трёхзначные числа:

pascalCopy code
program ThreeDigitNumbers;
var
  n, num, count: integer;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);

  count := 0;
  writeln('Введите числа:');
  for i := 1 to n do
  begin
    readln(num);
    if (num >= 100) and (num <= 999) then
      count := count + 1;
  end;

  writeln('Количество трёхзначных чисел:', count);
end.

3. Подсчитайте сумму квадратов чисел от 1 до 10:

pascalCopy code
program SumOfSquares;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 10 do
  begin
    sum := sum + i*i;
  end;

  writeln('Сумма квадратов чисел от 1 до 10:', sum);
end.

Примечание: Программы написаны на языке Паскаль и предполагают, что пользователь вводит числа во время выполнения программы.