Цикл с параметром: program prost; uses crt; var y, i: word; x: longint; begin readln(x); readln(y); for i : = 2 to y do x: =x*x; writeln(x); end. цикл с постусловием: program prost; uses crt; var x: longint; y, i: word; begin i : = 0; readln(x); readln(y); repeat x : = x*x; inc(i) until i < > y; writeln(x); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
