Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль
Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d,S:real;
begin
S:=0;
write('vvedite 4 chisla');
readln(a,b,c,d);
if (a>5) then S:=S+a;
if (b>5) then S:=S+b;
if (c>5) then S:=S+c;
if (d>5) then S:=S+d;
write('Summa chisel =',S)
end.
Не нашли ответ?
Похожие вопросы