С клавиатуры вводится число а,в, и целое число х. Если х=0 а,в-real найти разность а-в, 1-а*в, 2-х:integer a:в, в противном случае найти сумму.
4 комментария:
Это паскаль?
Да
Можно вот єто нормально переписать: 2-х:integer a:в
С клавиатуры вводится число а,в, и целое число х. Если х=0 найти разность а-в, 1-п*в, 2-а:в, в противном случае найти сумму.
Это паскаль?
Да
Можно вот єто нормально переписать: 2-х:integer a:в
С клавиатуры вводится число а,в, и целое число х. Если х=0 найти разность а-в, 1-п*в, 2-а:в, в противном случае найти сумму. Ответы
Гость Program Numbers;
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)>0) and (frac(b)>0) then
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.
1 комментария:
Вроде бы правильно понял условие
Вроде бы правильно понял условие Похожие вопросы
Информатика
Упростите булевы выражения : A=X(Y+X+Z)...
Информатика
Помогите пожалуйста ооочень срочно 30б...
Список предметов
