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.
немного исправил.
Это свойство актуальность.... инфо 2010 года явно стара как этот мир
Var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a>b then writeln(a,' - максимальное')
else if b>a then writeln(b,' - максимальное')
else
writeln('Значения равны');
end.
<em>Таблицы в прикрепленных файлах</em>
str_1 = input("text: ")
print(str_1.split(" ")[0])