С клавиатуры вводится натуральное число n.посчитать сумму натурального числа от 1 до n?

Знания

Информатика

1 ответ:

ЕленаТетерина4 года назад

0 0

Var n : Integer;
Begin
Readln(n);
Writeln((n+1)*n div 2);
end.

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

Расшифруйте слово в таблице

cer6er

Благ.
1111111111111111111111111111111111111111111111111

0 0

1 год назад

Устройство, подключаемое к компьютеру, где отраженный свет позиционируется на линейку фотоэлементов, которая движется и последов

Kolibripro1

Это устройство - монитор.

0 0

4 года назад

Пусть определена операция "*": a*b=(a-b)^2=... Тогда (4*1)*2=...А)1Б)49В)77Г)5

danilova [103]

Ответ:

Б) 49

Объяснение:

a*b=(a-b)^2

4*1=(4-1)^2=3^2=9

9*2=(9-2)^2=7^2=49

0 0

4 года назад

Статья, созданная с помощью ПК, содержит 30 страниц, на каждой странице - 40 строк, в каждой строке 50 символов. Какой объём инф

Алексей Санкт-Пет... [51]

(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)

Дано:

K = 30 * 40 * 50 = 60000 шт

Пусть i = 8 бит (Кодировка ASCII)

I - ?

Решение:

I = K * i = 60000 * 8 бит = 480000.0 бит

480000.0 бит = 60000.0 байт = 58.59375 Кбайт

0 0

4 года назад

Дано трехзначное число.Найти сумму цифр числа.(Написать программу на языке Паскаль)

Одарка

Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (a<100) or (a>999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа равна ',b+c+d);
end
end.

0 0

1 год назад

Прочитать ещё 2 ответа