У исполнителя Калькулятор две команды, которым присвоены номера: 1. прибавь 1

2. умножь на 1,5

Первая из них увеличивает на 1 число на экране, вторая увеличивает это число

в 1,5 раза, если число чётное. К нечётным числам вторая команда неприменима. Сколько есть программ, которые число 2 преобразуют в число 22?

Program Pro1;
type Date = record 
day : 1..31; 
mounth : 1..12; 
year : integer; 
end; 
Person = record 
SurnameName : string; 
Birthday : date; 
end; 
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;

//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;

for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;

WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.

program z1;

var t: integer;

begin

write('С начала суток секунд t = ');

readln(t);

writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

1 мин = 60 сек

1 час = 60 мин = 3600 сек

t div 3600 - сколько целых часов

t mod 3600 - сколько секунд осталось не считая целых часов

t mod 3600 div 60 - сколько целых минут

t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут