Задание:
Дано 4 числа. Если среди них найдется число 999, то напечатать все четыре числа, в противном случае – сумму 2-х последних. Построитьалгоритм действий
Решение:
Program pr; uses crt; Var a,b,c,d: real; BeginWriteln ('vv 4 chisla'); readln (a); readln (b); readln (c); readln (d); if (a=999) or (b=999) or (c=999) or (d=999) then Writeln ('a=',a,' b=',b,' c=',c,' d=',d) else Writeln ('sum=',c+d); readln; end.
Знаете другой ответ?