1)ввести число n . найти его фактериал. использовать repeart. (через while) 2)вводить число с клавиатуры , пока не будет верно число 0. через pascal !

karinka20001202 karinka20001202    3   06.06.2019 13:40    0

Ответы
КатяСвиридова КатяСвиридова  01.10.2020 20:39
1.

var res,i,x:integer;
begin
read(x);
i:=1;
res:=1;
while i<=x do
begin
res=res*i;
i:=i+1;
end;
write(res);
end.
2.var x:integer;
begin
x:=-1;
while x<>0 read(x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика