Var a:real; k,m,p:string;
Begin writeln('Введите число'); readln(a);
if a<0 then k:='отрицательное' else k:=' положительное';
if a=int(a) then m:=' целое' else m:='не целое';
if a/2=int(a/2) then p:=' чётное' else p:=' нечётное ';
writeln('число ',a,' - ',k,' ; ',m,' ; ',p);
end.
===== PascalABC.NET =====
begin
var b := MatrRandom(5, 5, -99, 99);
b.Println(4);
var n := b.RowCount;
Print('Главная:');
for var i := 0 to n - 1 do
Print(b[i,i]);
Writeln;
Print('Побочная:');
for var i := 0 to n - 1 do
Print(b[i, n - i - 1]);
end.
A1 = 3
B1 = 3 + 1 = 4
A2 = 4 - 3 = 1
B2 = 3 - 1 * 2 = 1
C2 = 3 + 1 = 4
D2 = 4 / 2 = 2
A2:D2 = 1 1 4 2
Следовательно, ответ - Г.
n = int(input())
k = n % 60
print('С начала последнего часа прошло %s минут' % k)