Решите задачи ** Паскале: 1) Из введенной последовательсти чисел, найдите количество...

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;</strong>

end.

#3

begin

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

end.

Объяснение:

Comments

На счёт школы - в шк программе есть раздел "программирование". Всё. А как это программирование преподавать, на каком языке и на каком его диалекте - это уже решает конкретный учитель. В более современных школах с продвинутыми учителями преподают в формате .NET, как Бобби говорил

---

"пользуюсь стандартом огэ." - где он опубликован - этот "стандарт"? Не нужно придумывать терминов, которые не существуют за пределами сферы Вашего общения.

---

Ну с Питоном - это до поры, до времени. Надоест вскоре, когда поймете, что это игрушка. До первого перемножения трех матриц 1000х1000.

---

Книжка там вторая есть на сайте, вышла уже, но только первая ее часть. Как раз для школьников.

---

Кстати, в 2020 году в России ОГЭ по информатике отменен.

---

Будут сдаваться ОГЭ только по основным предметам.

---

я знаю. спасибо

---

Ну я вроде никогда не утверждал, что питон - универсально крутой язык) Точнее он может и универсальный, но определённые виды программ на нём получаются жутко корявые и глючные. Вы когда нибудь видели, что бы 2D платформер жрал 20% ЦПУ? Я вот видел. Сначала было смешно. Потом грустно. Хотя не буду отрицать, что исходный код той игры вызвал бы у вас приступ истерического смеха

---

И, что до этой, конкретно, версии - в прошлом году меня в середине апреля попросили подготовить девятиклассницу к ОГЭ. Паскаль учили как раз вот этот, который Вы называете "не по программе", потому что его быстрее и проще учить. Сдала на максимальный балл она одна из учеников трех школ (их объединяли в одной школе). Вот как-то так...

---

Насчет графики - там в \PABCWork.NET\Samples\Graph3D\Кубик Рубика лежит игра - посмотрите, какие ресурсы она 3D кушает

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.

Объяснение: