Ответы
Ответ дал:
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:
спасибо
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад