• Напечатайте таблицу умножения чисел от 10 до 20 на числа 15, 16 и 17. Все данные расположите в несколько столбов, чтобы они были видны на экране
    ЯЗЫК ПАСКАЛЬ. ОЧЕНЬ СРОЧНО

Ответы 1

  • ответ без решения,пока что.uses crt; var a:array[0..50,0..50]of integer; i,j,n:integer; begin readln(n); for i:=1 to n do begin a[i,0]:=i; a[0,i]:=i; end; for i:=1 to n do for j:=1 to n do begin a[i,j]:=i*j; end;   for i:=0 to n do begin for j:=0 to n do begin if (i=0) or (j=0) then textcolor(lightgreen) else textcolor(white); write(a[i,j]:4); end; writeln; end; end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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