Регистрация
Rustam20022017
31.05.2020 05:16
Информатика
Есть ответ 👍

Найти произведение чисел от А до Б (Pascal*)

206
295
Посмотреть ответы 2

Ответы на вопрос:

dramidontova
dramidontova
4,8(24 оценок)

uses crt;

var a,b,i,p: integer;

begin

clrscr;

p:=1;

write('A,B: ');

readln(a,b);

for i:=a to b do

p:=p*i;

writeln('Произведение = ',p);

readln;

end.

Katya18RUS2000
Katya18RUS2000
4,6(3 оценок)
Бинарная 11111010 вольмиичная 372 десетиичная 250 16-тиичная fa

Популярно: Информатика