Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль

Question

Информатика

Эмилиан

9 июня, 10:01

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль

+3

Ответы (1)

Знаете ответ?

Рудольф · Answer 1

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.