Ты можешь сделать это с помошью программы Paint
какие 4 предмета сдовать в геа
Var
dd1,mm1,yyyy1,dd2,mm2,yyyy2:integer;
ww:real;
Begin
Writeln('Введи текущую дату "дд мм гггг"');
Readln(dd1,mm1,yyyy1);
Writeln('Введи дату рождения "дд мм гггг"');
Readln(dd2,mm2,yyyy2);
yyyy1:=(yyyy1-yyyy2);
if mm2>mm1 then begin yyyy1:=yyyy1-1; mm1:=mm1+12; end;
mm1:=mm1-mm2;
if dd2>dd1 then begin mm1:=mm1-1; dd1:=dd1+30; end;
dd1:=dd1-dd2;
ww:=dd1+mm1*30.4368499+yyyy1*365.242199;
Writeln(round(ww));
<span>End.</span>
Ответ:
program 1;
uses crt;
var p,s,h,m,sc:integer;
begin
write('Количество суток = ');
read(p);
h:=p*24;
m:=h*60;
sc:=m*60;
writeln('Секунд = ' ,sc);
writeln('Минут = ' ,m);
write('Часов = ' ,h)
end.