Var fact,s:real; i,n:integer; begin Write('Введите натуральное N: '); Read(n); s:=0; fact:=1; for i:=1 to n do begin fact:=i*fact; s:=s+sin(fact) end; Writeln('s=',s) end.
Program time; uses crt; var HH,MM,HP,MP,HR,MR,ost:integer; begin write('Vvedite vremya otvravki : '); read(HH); read(MM); writeln; write('vvedite prodolgitelnost poleta: '); read(hp); read(mp); clrscr; writeln('Otpravleniye somolyata v ',hh,':',mm);
MR:=mm+mp; if mr>59 then begin ost:=mr mod 60; MR:=ost; HR:=HR+(MR div 60); end;
HR:=HH+HP; if hr>24 then hr:=hr - 24;
Writeln; Write('Pributie samolyota v ', HR,':',MR); writeln;
end.
данный можно сразу вводить через пробел... например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка...не совсем правильно считает... подожди исправлю
fact,s:real;
i,n:integer;
begin
Write('Введите натуральное N: '); Read(n);
s:=0; fact:=1;
for i:=1 to n do
begin fact:=i*fact; s:=s+sin(fact) end;
Writeln('s=',s)
end.
Тестовое решение:
Введите натуральное N: 5
s=1.14638573564034