Определить является это число простым visual studio

20:02-4:11=15:51
ответ: 4 ч 11 мин.

Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично:
18:81 - не подходит;
17:71 - не подходит;
16:61 - не подходит;
15:51 - подходит, значит, это - предыдущее "счастливое" время.
Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут.
ответ: 4 ч 11 мин.

Объяснение:

var a,b,x,y,z:real;

begin;

clrscr;

write('vvedite dlinu kirpicha ');

readln(x);

write('vvedite shirinu kirpicha ');

readln(y);

write('vvedite visotu kirpicha ');

readln(z);

write('vvedite dlinu otverstiya ');

readln(a);

write('vvedite shirinu otverstiya ');

readln(b);

if (x<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (x<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else

write('kirpich ne vmeshaetsya v otverstie') end end end end end;

 

 

end.