Регистрация
dank02
07.07.2021 09:09
Информатика
Есть ответ 👍

Составьте программу которая рисует рыбку в паскаль авс

182
285
Посмотреть ответы 2

Ответы на вопрос:

nastya01241
nastya01241
4,6(26 оценок)

begin

write ('> < º> ');

end.

такую? )

kanayevasaniya
kanayevasaniya
4,4(81 оценок)

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := MatrRandom(n, n, 10, 99);

 a.Println(3);

 Writeln;

 for var i := 0 to n - 1 do

   Swap(a[i, i], a[i, n - i - 1]);

 a.Println(3)

end.

Популярно: Информатика