Предмет: Информатика,
автор: NastyaRez
Решите пожалуйста 1 и 2
Паскаль
Приложения:
![](https://files.topotvet.com/i/8a1/8a1635abe97c0ffed1a282a07e700e94.jpg)
Ответы
Автор ответа:
1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var x:=ReadReal('x=');
var y:real;
if x<0 then y:=x*x else y:=1+x;
Writeln('y=',y);
end.
Пример
x= -4.18
y=17.4724
№2
begin
var (a,b):=ReadReal2('Введите через пробел или Enter два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
Пример
Введите через пробел или Enter два числа: 45 11.7
Первое число больше
Внимание! Если программа не работает, обновите версию!
№1
begin
var x:=ReadReal('x=');
var y:real;
if x<0 then y:=x*x else y:=1+x;
Writeln('y=',y);
end.
Пример
x= -4.18
y=17.4724
№2
begin
var (a,b):=ReadReal2('Введите через пробел или Enter два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
Пример
Введите через пробел или Enter два числа: 45 11.7
Первое число больше
Похожие вопросы
Предмет: Геометрия,
автор: violettak393
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: angelvpomosh