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

Ответы 1

  • 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.
    • Автор:

      iglesias
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years