Регистрация
Angelina13112003
30.10.2021 02:53
Информатика
Есть ответ 👍

1. Напишите программу на зыке Pascal: Найти значения функции у=2х2+4х на промежутке от 1 до 10, используя цикл for 2. Напишите программу на зыке Pascal: Найти произведение всех чисел кратных 5 на промежутке от 10 до 1000, используя цикл for.

3. Напишите программу на языке Pascal: Найти количество всех чисел на промежутке от 3 до 10000 кратных 3, используя цикл for

279
488
Посмотреть ответы 1

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

гнеуй
гнеуй
4,7(44 оценок)
Var   a,b: array[1..8] of integer;   i,x: integer; s: string; begin writeln('первый массив: '); for i: =1 to 8 do begin   x: =sqr(i)+1;   a[i]: =x; write(x,' ');   x: =2*i-1;   b[i]: =x; s: =s+inttostr(x)+' ';   if i=8 then begin       writeln; writeln('второй массив: '); writeln(s);   end; end; end.

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