Создайте программу для алгоритмаs =12...*100

Знания

Информатика

1 ответ:

Персидский кот [12.7K]4 года назад

0 0

Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.

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

Найти сумму четырехзначного числа на языке паскаль

San-sanch

Program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do
begin
a:=k mod 10;
sym:=sym+a;
k:=k div 10;
end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.

0 0

4 года назад

Язык Паскаля составить программу, которая будет вычислять сумму, разность, произведение и частное от деления первого числа на в

Jolter [50]

<span> var
a,b: integer;
begin
write('введите 1-е число: ');
readln(a);
write('введите 2-у число: ');
readln(b);
writeln('сумма ',a,' и ',b,' = ',a+b);
writeln('разность ',a,' и ',b,' = ',a-b);
writeln('произведение ',a,' и ',b,' = ',a*b);
writeln('частное ',a,' и ',b,' = ',(a/b):5:2);
readln;
end.</span>

0 0

4 года назад

Сколько бит может быть передано за 2 минуты со скоростью 50Кбит/с? помогите пожалуйста

Ekaterina Vinogra...

Ответ:

6000000

Объяснение:

Сначала переведем минуты в секунды: 2x60=120(сек)

Теперь найдем сколько килобит мы получим за этот срок 50x120=6000

А теперь переведем 6000кбит в биты: 6000x1000=6000000

0 0

4 года назад

Построить таблицу истинности логических операций (а или b) и (c или b)

Nabil

(а или b) лучший и по удобнее

0 0

4 года назад

Сегодня в магазине новогодних игрушек распродажа, там можно купить со скидкой такие наборы игрушек: домик + шар, домик + звезда,

mfdglsfg

"B" и все последующие слова были проигнорированы, так как количество слов в запросе не может превышать 32.

0 0

1 год назад

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

Создайте программу для алгоритмаs =1*2*...*100

Создайте программу для алгоритмаs =12...*100