С клавиатуры вводится число а,в, и целое число х. Если х=0

С клавиатуры вводится число а,в, и целое число х. Если х=0 а,в-real найти разность а-в, 1-а*в, 2-х:integer a:в, в неприятном случае найти сумму.

Задать свой вопрос
Анжелика
Это паскаль?
Тема Микора
Да
Вероника
Можно вот то нормально переписать: 2-х:integer a:в
София Зотчева
С клавиатуры вводится число а,в, и целое число х. Если х=0 отыскать разность а-в, 1-п*в, 2-а:в, в противном случае отыскать сумму.
1 ответ
Program Numbers;
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)gt;0) and (frac(b)gt;0) then 
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.


Нина Агенская
Вроде бы верно сообразил условие
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт