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

Question

Информатика

Нимфа

20 января, 16:14

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

+1

Ответы (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.