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

alsusarip alsusarip    1   15.09.2019 11:40    3

Ответы
sashapeterov85 sashapeterov85  07.10.2020 17:04
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика