Вариант № 2 1) Подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых.

2) Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

3) Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.

4) Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.

5) Вычислите: 99-97+95-93+91-89 + ... + 7-5+3-1.

6) Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны) : A OR (B AND C) и (A OR B) AND (A OR C).

В паскале

1) program one;

uses crt;

var a:array [1 ... 10] of integer;

x: real; i:integer;

begin

clrscr;

x:=0;

for i:=1 to 10 do

readln (A[i]);

for i:=1 to 10 do

begin

if (A[i]<0) or (A[i] mod 2=0) then

x:=x+Sqr (A[i]);

end;

writeln;

write (x);

end.

2)

program two;

uses crt;

var a:array [1 ... 52] of integer;

x, i: integer;

begin

clrscr;

x:=34;

for i:=1 to 52 do

begin

A[i]:=1+x;

x:=x+1;

if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5)

then writeln (A[i]);

end;

end.

3)

Program three;

Uses crt;

var n, x:integer; a, y:real;

begin

Clrscr;

readln (a, n);

for x:=1 to n do

y:=x*a;

writeln (y);

end.

4)

Program four;

Uses crt;

var A:array [1 ... 100] of integer;

n, i, max, x:integer;

begin

clrscr;

writeln ('vvedite kol-vo elementov');

readln (n);

writeln ('Vvedite elementy');

for i:=1 to n do

read (A[i]);

for i:=1 to n do

begin

max:=A[1];

if (A[i] A[x])

then max:=A[i];

x:=i;

end;

writeln ('Naib', max,'nomer', x);

end.

5)

Program abc;

Uses crt;

var S, a, b:integer;

begin

clrscr;

S:=0;

a:=1;

b:=3;

while a<98 do

begin

while b<100 do

begin

S:=S+b-a;

a:=a+4;

b:=b+4;

end;

end;

writeln (s);

end.