O__o
var
i, s : Integer;
begin
for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;
Readln;
end.
саксофон пиан ударн географ.фак ист.фак физ.фак. биолог
М + - - - -
В - + - + - - -
А - - - - + - -
Л - - + - -
Валерий пианист - географич. фак
Program sport;
var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer;
begin
writeln('Старт.');
write('Количество часов ');
read(h1);
write('минут ');
read(m1);
write('секунд ');
read(s1);
st:=s1+m1*60+h1*3600;
writeln('Финиш.');
write('Количество часов ');
read(h2);
write('минут ');
read(m2);
write('секунд ');
read(s2);
fin:=s2+m2*60+h2*3600;
p:=fin-st;
i:=p;
s:=p mod 60;
p:=p div 60;
m:=p mod 60;
p:=p div 60;
h:=p mod 60;
writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд ');
write(' Всего ',i,' секунд.');
end.