Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
<span>END.</span>

0 0

1 год назад

Раскодируйте 1088-1105-1074 словом

Иришка1020

РЁВ
В Паскале можно декодировать посредством функции chrunicode().

0 0

1 год назад

Ребята, помогите пожалуйста. Перевести в Кбайты 0,5 Мбайт и 12345 бит. Перевести в бит 0, 006 Кбайт и 17 байт. Заранее огромное

Maximaizer

1. 0,5 Мбайт= 512 Кбайт
12345 бит= 12641280 Кбайт
2. 0,006 Кбайт= 49,15 бит
17 байт= 136 бит

0 0

4 года назад

ИНФ.9КЛ.ЦИКЛ Задание: Составить программу вычисления произведение чисел,кратных 5,в интервале от 5 до 18. Ответ:750