Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
begin
i:=i+1;
s:=s+i/(i+1);
end;
writeln('s = ',s:6:4);
end.

Результат:
<span>s = 7.4801</span>

0 0

4 года назад

Названия множеств- утки; птицы

Antk

Я не знаю но думаю если кря кря

0 0

3 года назад

Напечатать"столбиком"значения sin2,sin3...,sin20

Женя Ложкина [165]

FOR i = 2 TO 20
PRINT SIN(i)
NEXT i

0 0

4 года назад

СРОЧНО ПОЖАЛУЙСТА, Отцу Х лет. Возраст вводится с клавиатуры, он старше сына на 28 лет. Сколько лет сыну?

bodrovaleksandr [14]

program vozrast;

var

o,s:real;

begin

writeln('Введите сколько лет Отцу');

readln(o);

if O>28 then

begin

S:=O-28;

writeln ('Сыну ',s,' лет');

end

else

writeln('Ошибка');

end.

0 0

3 года назад