Дано 4 числа. Если среди них найдется число 999, то напечатать все четыре числа, в противном случае – сумму 2-х последних. построить алгоритм действий
Program pr; uses crt; Var a,b,c,d:real; Begin Writeln('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.
пусть те числа - а,б,с,д.
начало
если а=999 ИЛИ б=999 ИЛИ с=999 ИЛИ д=999
напечатать а, б, с, д
конец
иначе
присвоить е сумму с и д.
напечатать е