1.Напишите программку,определяющую сумму S=1+2+3+4...+992.Напишите программу,определяющую

1.Напишите программку,определяющую сумму S=1+2+3+4...+99
2.Напишите программку,определяющую творенье
P=1*2*3*4...*10
На Паскаль
За ранее признательна

Задать свой вопрос
1 ответ
Var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 99 do s:=s+i;
  Writeln('S=',s)
end.

var
  i:integer;
  p:longint;
begin
  p:=1;
  for i:=1 to 10 do p:=p*i;
  Writeln('P=',p)
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт