Идёт k-я секунда суток. определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту.

program pr1; uses crt; var k: integer; beginclrscr; readln(k); writeln('minut proshlo ',k div 60); writeln('chasov proschlo ',trunc(k/60) div 60); end.

var k: integer; beginreadln(k); writeln('h=',k div 3600); while k> =3600 do k: =k-3600; writeln('m=',k div 60); end.

Var    a: array[1..15] of real;   r: real;   n, i: integer; begin   // заполнение   for i: =1 to 15 do   begin     a[i] : = i;     write(a[i], ' ');   end;         for i: =1 to 15 do   begin     r : = r + a[i];     n : = n + 1;   end;   r : = r / n;   writeln;   writeln('среднее ариф. ', r);         // вывод   for i : = 1 to 15 do   begin     a[i] : = a[i] - r;     write(a[i], ' ');   end; end.

#include < stdio.h> int main(){ int* a = 71; a = a + 1; printf("%d\n", a); } да, программа работает и выводит 75. компилятор дает : warning: initialization makes pointer from integer without a cast [enabled by default]   int* a = 71;                       ^ в языке с инициализация указателя из целого числа без явного вызывает сообщение о . его можно обойти, записав int* a = (int*) 71; само значение 75 объясняется просто: указатель, имеющий значение 71, при добавлении 1 наращивается не на 1, а на 1, умноженную на длину указателя (4 байта для integer), поскольку именно так реализуется арифметика указателей. 71+4=75.