Что у меня не верно? Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти. 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 бол...
Что у меня не верно?
Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти.
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.
Гость
Ответ(ы) на вопрос:
ГостьПоставьте точку с запятой после S:=S+d и уберите else перед writeln(S);
Не нашли ответ?
Похожие вопросы