Это из paskal abc 1. дано число k. напишите программу, которая находит и выводит на экран количество полных минут и оставшихся секунд. 2. в школу подано n заявок в 1 класс. в каждом классе может быть не более 26 учеников . сколько классов может быть сформировано в школе? сколько детей будет
переведено в другие школы? 3. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр=100 см) 4. дано двузначное число. найти: a. число единиц в нем; b. сумму его цифр; 5. дано трехзначное число: а. число десятков в нем; b. произведение
его цифр. 6. дано четырехзначное число. найти сумму его цифр; !
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
Read(a,b,c); // не вводить одинаковых!
if a>b then
if a>c then // a > [b,c]
if b>c then Writeln('Среднее - второе число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - первое число')
else
if b>c then // b > [a,c]
if a>c then Writeln('Среднее - первое число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - второе число')
end.