Первая. program one; var i:byte; a:integer; begin a:=1; for i:=1 to 15 do begin a:=a+a; end; write(a); end. Третья. program three; var p:real; i:real; a:real; begin p:=1; i:=1/5; while i<=2+4/5 do begin p:=p*i; i:=i+1/5; write(p, ' '); end; write(p); end. Во второй промежуточное не понял, напишите без многоточия.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
