128 кб. экран VGA (640X480? 256)
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=MatrRandom(8,5,-99,99); c.Println(4); Writeln(4*c.ColCount*'-');
c.SwapCols(2,4);
Writeln('*** Результат ***'); c.Println(4)
end.
Самые основы паскаля. Советую почитать учебник и разобраться, т.к. дальше будет только сложнее.
var hig, age: integer;
begin
write('Введите рост ученика: ');
readln(hig);
write('Введите возраст ученика: ');
readln(age);
if (hig<160) or (age<13) then writeln('Не может заниматься')
else writeln('Может заниматься');
<span>end.
</span>