=D$2+$B4...........................................
Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
<u>Пример</u>
9 14 6 6 20 16 12 11 8 5
s=107
Ввод
Монитор
Окно
Курсор
ОН( первый раз), СЛОН( ВТОРОЙ РАЗ), СМЕШОН( ТРЕТИЙ РАЗ) ОКОНЧАТЕЛЬНО( 4 раз) и АНТОН( 5 раз)
Ответ: 5 раз