Program programma;
Uses crt;
var n,s,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
write('S=');
for i:=1 to n-1 do
begin
s:=s+sqr(i);
write(sqr(i),'+');
end;
s:=s+sqr(n);
write(sqr(n),'=', s);
End.
1. На экран выведется число 17
2. На экран выведется число 25
3. На экран выведется число 27
53
Так как i в цикле for-это счётчик повторений. Первое значение-начальное, второе-конечное. Как только цикл досчитает, прибавляя по единице за каждый шаг к минимальному значению, до конечного значения, он выполнится ещё раз и остановится.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
Какую длину и где сама окружность