10 задача. Составить программку-генератор

10 задачка. Составить программу-генератор

Задать свой вопрос
1 ответ
Const k = 10;
Var a,b,c,m,n : Integer;
Begin
  For m:=1 to k do
   For n:=1 to k do
   Begin
     a:=sqr(m)-sqr(n);
     b:=2*m*n;
     c:=sqr(m)+sqr(n);
     Writeln(m:5,n:5,a:8,b:8,c:8);
   end;
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт