2)
begin
var N:=1169;
var money:=0;
var time:=0;
var price:=ReadLnInteger('Введите стоимость билета: ') * 100;
repeat
time += 30;
money += N;
until money >= price;
writeln('Для сбора ', price div 100, ' рубля(ей) необходимо ', time div (60*24), ' суток ', time div 60 mod 24, ' часов');
writeln(time div 60);
end.
3)
function SumOfNumDigits(num: integer): integer;
begin
while num > 0 do
begin
Result += num mod 10;
num:=num div 10;
end;
end;
var a, b, c, x: integer;
begin
a:=567;
b:=389;
c:=185;
if SumOfNumDigits(a) > SumOfNumDigits(b) then
x:=a
else
x:=b;
if SumOfNumDigits(x) > SumOfNumDigits(c) then
writeln(x)
else
writeln(c);
end.