А) Вывести на экран квадрат первых двадцати нечетных чисел. Б) Найти сумму 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 2<>0 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<k do

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.