Program zadacha_3;
var
hour, min,sec,time: integerl;
begin
writeln(‘время запуска ракеты’);
write(‘час’);
readln(hour);
write(‘мин’);
readln(min);
write(‘сек’);
readln(sec);
writeln(‘введите время полета’);
readln(time);
{вычисление времени возвращения ракеты на Землю}
sec:= sec+ time;
min:=min+sec div 60;
sec:=sec mod 60;
hour:=hour+min div 60;
min:=min mod 60;
hour:=hour mod 24;
writeln(‘результаты’);
write(‘время полета=’,time:3,эсек’);
writeln(‘ожидаемое время прибытия=’);
writeln(hour:2,’час’, min:2,’мин’,sec:2,’сек’);
readln;
end.
Здравствуйте. Я хотела у Вас спросить, где в интернете можно найти работу ? -Добрый день! Сейчас в интернете найти работу не сложно, так как а многих сайтах пишется о различных интернет-сайтах, где можно заработать. -Но ведь не всегда это правда!-Да... очень часто бывают случаи, что члюди выполняют работу, но обещанную зарплату не получают.-И как в этих случаях поступать? - Вряд ли Вам будут даже потом давать эти деньги. Лучше всего забыть об этом и искать что-то новое, если хотите попробовать поработать на другом сайте. Лучше всего искать работу не в интернете,а , например, работу курьером, если вам нужна работа на неполный рабочий день. Но еще можно почитать обьявления в газете, там вы найдете что-то подходящее для себя огромное за совет.-До свидания.
var
hour, min,sec,time: integerl;
begin
writeln(‘время запуска ракеты’);
write(‘час’);
readln(hour);
write(‘мин’);
readln(min);
write(‘сек’);
readln(sec);
writeln(‘введите время полета’);
readln(time);
{вычисление времени возвращения ракеты на Землю}
sec:= sec+ time;
min:=min+sec div 60;
sec:=sec mod 60;
hour:=hour+min div 60;
min:=min mod 60;
hour:=hour mod 24;
writeln(‘результаты’);
write(‘время полета=’,time:3,эсек’);
writeln(‘ожидаемое время прибытия=’);
writeln(hour:2,’час’, min:2,’мин’,sec:2,’сек’);
readln;
end.