Program n1;
const n=10;
var a: array [1..n] of integer;
i,kb,km: integer;
begin
kb:=0;
km:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
if(a[i]>0) then kb:=kb+1;
if(a[i]<0) then km:=km+1;
end;
writeln('количество положительных: ',kb);
writeln('количество отрицательных: ',km);
end.
Извини за качество. третья формула x:=(x+y)/2
Ну... Как-то так)
var
x, y: real;
begin
x := 0.5;
while x <= 25 do
begin
if x > 20 then
y := sin(x)
else
if x <= 5 then
y := sqr(cos(x))
else
y := sqrt(x);
writeln('y(', x, ') = ', y);
x := x + 1.5;
end;
end.
E =15 (10cc)
A=10 (10cc)
3 2 1 2 -1 -2 <--- позиции цифр в числе
E 4 1 A, 1 2 (16cc) =15*16^3+4*16^2+1*16+10*16^0+1*16^-1+2*16^-2=
=61440 + 1024 + 16+10 + 0,0625 +0,0078125=
=62490,0703125
Пусть мальчиков было - х
А девочек - у
Тогда х*у = 77, но 77 можно разложить на множители только двумя способами: 7*11 или 11*7
Если Мальчиков 7, то девочек 11
или наоборот девочек 7, а мальчиков 11,
В любом случае получается учеников в классе 7 + 11= 18