Var a,b,c,max,min:integer;
begin
read(a,b,c);
max:=c;
min:=c;
if min>a then min:=a else if min>b then min:=b;
if max<a then max:=a else if max<b then max:=b;
write(min,max);
end.
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ReadArrReal('Введите компоненты:',n);
Writeln('Минимальный косинус равен ',a.Select(x->cos(x)).Min:0:5)
end.
9+9 = 18
18-5 = 13 (5 - вторая цифра числа 154)
91(13)+93(13) = 154(13)
Ответ: основание системы счисления = 13
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.
немного исправил.
1. думаю что да
2.да
3.нет
извини но только три