А) Вывести на экран квадрат первых двадцати нечетных чисел. Б) Найти

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

program zadacha1;

uses crt;

var i,n,s:integer;

begin

n:=0; i:=1;

while nlt;=19 do

if i mod 2lt;gt;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 plt;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.