А) Вывести на экран квадрат первых двадцати нечетных чисел. Б) Найти сумму n четных чисел, количество четных чисел задается в процессе работы программы.

Задача 1. Обозначим буквой i значения нечетных чисел, буквой n - счетчик нечетных чисел, а буквой s - квадраты нечетных чисел. В программе будем использовать оператор цикла с предусловием while. Тогда программа на языке Pascal ABC будет иметь вид:

program zadacha1;

uses crt;

var i, n, s:integer;

begin

n:=0; i:=1;

while n<=19 do

if i mod 20 then begin {Проверка числа i на нечетность}

writeln (i*i); {Возведение нечетного числа i в квадрат}

i:=i+2; {Увеличение нечетного числа i на 2}

n:=n+1; {Увеличение счетчика n на 1}

end;

end.

Задача 2.

Введем следующие обозначения: k - количество четных чисел, которые будем суммировать (вводится с клавиатуры во время выполнения программы); n - сумма четных чисел; p - счетчик чисел k, i - значения четных чисел. Программа на языке Pascal ABC будет иметь вид:

program zadacha1;

uses crt;

var i, n, s, k, p:integer;

begin

writeln ('Введите число k');

readln (k);

p:=0; n:=0; i:=2;

while p
if i mod 2=0 then begin {Проверка числа i на четность}

n:=n+i; {Вычисление суммы четных чисел i}

writeln (n); {Вывод суммы четных чисел i на экран}

i:=i+2; {Увеличение четного числа i на 2}

p:=p+1; {Увеличение счетчика p на 1}

end;

end.