Что у меня не верно?
Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти.
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.
Ответы (1)
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Что у меня не верно? Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти. var a, b, c, d, S:real; begin writeln ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Значения слов: 1. Дельта 2. пороги 3. ил 4. папирус 5. оазин 6. фараон
Нет ответа
Объясните как определить заряд иона образуемого кислотным остатком и соответствующий оксид ... на примере H3PO4
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа