Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Помогите, пожалуйста, написать программу в паскале!!

10-11 класс

Markiraidov 26 сент. 2015 г., 23:25:04 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Кашичкина
27 сент. 2015 г., 0:50:55 (8 лет назад)

var
    i, k: integer;
    s: real;

begin
    s := 1;
    for i := 1 to 10 do
    begin
        k := k + i;
        s := s * k;
        writeln(i:3,k:3,' ',s);
    end;
    writeln(s);
end.

+ 0 -
бафифо
27 сент. 2015 г., 2:57:56 (8 лет назад)

program zadacha;
var
i:integer;
s,p:longint;
begin
  s:=1;
  p:=1;
  for i:=2 to 10 do begin
   p:=p+i;
   s:=s*p;
  end;
  write(s);
end.

Ответить

Другие вопросы из категории

Читайте также

написать программу на Assembler

добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.

задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов

Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.

заранее огромное спасибо всем!

Помогите пожалуйста написать программу в паскале.

Составить программу перевода натурального числа из десятичной системы счисления в двоичную

10-11 класс информатика ответов нет


Вы находитесь на странице вопроса "Помогите, пожалуйста, написать программу в паскале!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.