Правильные решения и ответы на любые задания для школьника или студента быстро онлайн. А если не нашли нужное решение или ответ, то задайте свой вопрос нашим специалистам.

Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использовать!...

0 голосов

Вывести таблицу квадратов чётных чисел от 1 до 19. Условный
оператор не использовать! Сделайте через цикл


Информатика Начинающий (177 баллов)
Дано ответов: 2
0 голосов

Четные 2,4,6,8,10,12,14,16,18

(57 баллов)
0 голосов

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.

Одаренный (3.9k баллов)
...