Предмет: Информатика,
автор: amin03aliev
Решите к уроку информатики !!!
Приложения:
![](https://files.topotvet.com/i/0ec/0ec527e2ebdea42da6768719acf6b4a6.jpg)
Ответы
Автор ответа:
0
Ответ:
готово
Объяснение:
1)
program massiv;
var
i, N: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
WriteLn(i);
end.
2)
program squares;
var
i, N: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
WriteLn(sqr(i));
end.
3)
program summa;
var
i, N, sum: integer;
begin
Write('Введите количество чисел: ');
ReadLn(N);
for i := 1 to N do
if (i mod 2 = 0) then sum := sum + i;
WriteLn('Сумма четных чисел равна ', sum);
end.
amin03aliev:
спасибо
Похожие вопросы
Предмет: Русский язык,
автор: Диктаторша
Предмет: Русский язык,
автор: Go5
Предмет: Русский язык,
автор: antontaekwondo
Предмет: Математика,
автор: Валя1111111114568