Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использовать! Сделайте через цикл
Вывести таблицу квадратов чётных чисел от 1 до 19. Условный
оператор не использовать! Сделайте через цикл
Гость
Ответ(ы) на вопрос:
Гостьчетные 2,4,6,8,10,12,14,16,18
ГостьVar A: arrey[1..19,1..2] of integer; Var x, i: integer; Begin For i:=1 to 19 do begin A[i,1]:=i; A[i,2]:=i*i; Writeln (A[i,1]:4, A[i,2]:4) End End. --------------- Или если без массива, то так: Const n=12; Var x,y: integer; Begin For x:=1 to n do begin y:=x*x; Writeln (x:4,y:4) End End.
Не нашли ответ?
Похожие вопросы