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

writeln (i*i);

i:=i+2;

n:=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

n:=n+i;

writeln (n);

i:=i+2;

p:=p+1;

end;

end.