Регистрация
Kros228volk225
20.04.2021 10:34
Информатика
Есть ответ 👍

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

182
189
Посмотреть ответы 3

Ответы на вопрос:

ник3096
ник3096
4,7(78 оценок)

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.

Объяснение:

katanator
katanator
4,4(73 оценок)

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.

Объяснение:

yuliyaduda11
yuliyaduda11
4,5(4 оценок)
Const   n = 5; var   a: array [1..n] of integer;   flag: boolean; begin   flag : = false;   for var i : = 1 to n do   begin       readln(a[i]);       if a[i] > 5 then begin           writeln(a[i], i: 3);           flag : = true;       end;   end;   if not flag then writeln('элементов больше 5 нет'); end.

Популярно: Информатика