<em>
- эта строка означает, что будут рассматривать все значения под номерами от 1 до 14.</em>
<em>
- эта строка означает, что будут рассматриваться те переменные, значение которых больше 26</em>
<em>
- эта строка означает, что будет выводится число переменных, значение которых больше 26
При анализировании всех данных получаем, что ответ будет равен 7</em>
Компьютерная мышь это правильно
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.
Var a,b,c:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
for c:=a to b do
begin
writeln(c,'*',c,'=',sqr(c));
end;
<span>end.</span>