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

Question

Что у меня не верно?
Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти.
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.

Answer 1

Поставьте точку с запятой после S:=S+d и уберите else перед writeln(S);

Comments

нет

---

Ну в том и дело было

---

запятой, надо точкой, я поняла, спасибо

---

Запятая в представлении чисел НИКОГДА не используется в компьютерах! Исключение - локализованная версия таблиц excel

---

Хорошо, я запомню)

---

Да и то, зависит от региональных настроек операционной системы и самого Excel

---

я не знаю, как это сделать--> Даны три вещественных числа. Вывести на экран те из них, которые принадлежат отрезку [-2,3;6,8]? Поможете? Я новый вопрос создам

---

Хотя не надо уже)

---

Быстрее вопрос создать, чем спрашивать))) Кто-нибудь, да ответит.

---

=)