Составить таблицу квадратов,первых двадцати положительных чисел 1 меньше либо равно а меньше либо равно20,шаг=1,с=а*а,sqr(a),a=a+1

Question

Составить таблицу квадратов,первых двадцати положительных чисел 1<либо равно а<либо равно20,шаг=1,с=а*а,sqr(a),a=a+1

Гость

Ответ(ы) на вопрос:

Accepted Answer

For a := 1 to 20 do begin writeln(a,"^2 = ", a*a); end или a:= 1; repeat writeln(a,"^2 = ", a*a); a := a + 1; until a > 20;