Какой именно их много и я много знаю
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
Преобразуем выражение с помощью законов де Моргана и запишем его в виде
(Третья буква гласная) ИЛИ (Последняя буква согласная)
и проверим все варианты ответа.
1) Ложно, поскольку ложны оба высказывания: н — согласная и а — гласная.
2) Истинно, поскольку истинно первое высказывание: е — гласная.
3) Истинно, поскольку истинно второе высказывание: л — согласная.
4) Истинно, поскольку истинны оба высказывания: о — гласная и р — согласная.
Правильный ответ указан под номером 1.