//Pascal var p,i,h:word; begin p:=1; //Переменная для хранения произведения чисел a:=3; writeln('Введите число '); readln(h); repeat p:=p*a; a:=a+3; until a>=h; writeln(p:5,a:5); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
