Задать вопрос
7 мая, 21:26

Что у меня не верно?

Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти.

var a, b, c, d, S:real;

begin

writeln ('введи числа') ;

readln (a, b, c, d) ;

S:=0;

if (a>10) then S:=S+a;

if (b>10) then S:=S+b;

if (c>10) then S:=S+c;

if (d>10) then S:=S+d

else writeln (S) ;

end.

+2
Ответы (1)
  1. 8 мая, 00:51
    0
    Поставьте точку с запятой после S:=S+d и уберите else перед writeln (S) ;
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Что у меня не верно? Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти. var a, b, c, d, S:real; begin writeln ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы