4 года назад

Напишите программу в Паскаль!! Посчитать сумму всех целых чисел от 1 до 100 включительно Sn=(2a1+d(n-1))*n)/2

Знания

Информатика

1 ответ:

Elena4 года назад

0 0

const a=1; d=1; n=100;
var s:real;

begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.

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

C++ В массив A длиной N из всех одинаковых элементов оставьте только по одному представителю. Остальные удалите. Рассмотрите 2 в

Olga152

//массив отсортировать, удалить повторные
#include <iostream>
#include <list>
#include <cstdlib>
#include <ctime>
#include <iomanip>
using namespace std;

int main() {

  int j,n;
list<int> lst;
list<int>::iterator it1;
// начальная установка генератора случ. чисел
   srand(time(NULL));
//заполнение списка
cout<<"n = "; cin>>n;
   for (j=0; j<n; j++)
lst.push_back(rand() % 10);
//вывод на экран
    cout<<"initial array: ";
   for (it1=lst.begin(); it1!=lst.end(); it1++)
cout<<*it1<<" ";
//сортировка, удаление повторных
   lst.sort();
   lst.unique();
//вывод списка
   cout<<endl<<"after removing: ";
   for (it1=lst.begin(); it1!=lst.end(); it1++)
cout<<*it1<<" ";
   cout<<endl;

   system("pause");
   return 0;
}

В варианте без сортировки (что, вообще говоря, не принципиально) убираете строку lst.sort();
<span>
</span>

0 0

4 года назад

Для кодирования некоторой последовательности, состоящей из букв А Б В Г Д Е используется неравномерный двоичный код,для буквы А-

Сергей-шахтер [14]

Ответ: 23

Объяснение:

А - 0

Б - 10

В - 11100

Г - 11101

Д - 11110

Е - 11111

0 0

4 года назад

Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив полож

Rosita [382]

program name;

const

n:=15

var

i,a:array[1..n] of integer;

begin

for i:=1 to n do begin

random(a[i]);

writelm(a[i]);

end;

end.

Пол задания

0 0

4 года назад

Помогите сделать алгоритм дам 18 балов

Вася Пупков

Приди приди в лес собери листья осматри лист выброси лист возьми1 лист принеси листья домой высуши лист

0 0

4 года назад

Ребят,помогите с информатикой Решите уравнение 121х+1=101 9(девятка подписана по числом 101 в правом нижнем углу) Ответ запишите

Vitalii68 [32]

121X=110
X=121/110
///////////////////////////////////////

0 0

4 года назад

Напишите программу в Паскаль!! Посчитать сумму всех целых чисел от 1 до 100 включительно Sn=(2*a1+d*(n-1))*n)/2

Напишите программу в Паскаль!! Посчитать сумму всех целых чисел от 1 до 100 включительно Sn=(2a1+d(n-1))*n)/2