На Паскале
var a: array [1..5] of integer;
i: integer;
p, m: integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
If a[i] < 0 then
m:= m+a[i]
else
p:=p+a[i];
end;
writeln(p/abs(m));
end.
Ответ:
1.а) 2.г) 3.в) 4.-) 5.а) 6.а) 7.а)
При возведении 2 в степень есть закономерность последнего числа:
2-4-8-6 и она повторяется через каждые 4 степени.
539/4=134 (остаток 3)
Находим 3 число в ряде - 8.
Последняя цифра в 2^539 - 8.
Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.