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

"звенелки"                                                "будилки"

колокольчик                                              будильник

звонок(дверной)                                  настенные часы

колокол                                                                      музыка у соседей))

треугольник(музыкальный)                телефонный звонок

домофон                                                                          петух

for

примеры

(pascal)

for i : = 1 to 10 do

  s: =s+1;

 

(c#,c++)

for (int i=0; i< 10; i++) {

    s+=i;

}

 

(ruby)

for i in 1..10

  s=s+i

end

 

(vb, vba,

for i = 1 to 10

  s=s+i

next i

 

по умлчанию шагом счетчика является 1. обычно шаг счетчика можно менять фразой by или step by. хотя увы такое есть не во всех языках

 

(c#,c++)

for (int i=0; i< 10; i=i+2) {

    s+=i;

}

 

(vb, vba,

for i = 1 to 10 step by 2

  s=s+i

next i

 

например в паскале возможен только обратный отсчет

for i : = 10 downto 1 do

  s: =s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. правда не знаю ли под это правило языки из группы с