Program n1;
var
i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
<span>end.
</span>program n1;
var
i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.<span>
</span>
нужно 15 поделить на 7 и получится 2.14285714
Алгоритм:
1) Понять что не видишь носки и потерял их
2) Вспомнить где ты их видел в последний раз
3) Начать искать
4) Найти носки
1/2048 Кбайт = 1/2048 * 1024 = 1/2 байта = 4 бита
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>