Вариант № 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;beginclrscr;x:=0;for i:=1 to 10 doreadln(A[i]);for i:=1 to 10 dobeginif (A[i]<0) or (A[i] mod 2=0) thenx:=x+Sqr(A[i]);end;writeln;write(x);end.

2)

program two;uses crt;var a:array [1..52] of integer;x,i: integer;beginclrscr;x:=34;for i:=1 to 52 dobeginA[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;beginClrscr;readln(a,n);for x:=1 to n doy:=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] <0) and (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;beginclrscr;S:=0;a:=1;b:=3;while a<98 dobeginwhile b<100 dobeginS:=S+b-a;a:=a+4;b:=b+4;end;end;writeln(s);end.