Автоматический (через заданное количество времени), и по щелчку
Var
i:integer;
begin
readln(i);
if i<=7 then
case i of
1:writeln('Это понедельник');
2:writeln('Это вторник');
3:writeln('Это среда');
4:writeln('Это четверг');
5:writeln('Это пятница');
6:writeln('Это суббота');
7:writeln('Это воскресенье');
end
else
writeln('Число слишком большое');
<span>end.</span>
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
У меня по информатике пятерки но в этом не могу тебе помочь
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Сколько часов, минут и секунд надо на задачу?');
var n:=ReadInteger('Сколько задач?');
var t:=n*(c+60*b+3600*a);
Write('Будет затрачено ',t div 3600,' час ');
t:=t mod 3600;
Write(t div 60,' мин ',t mod 60,' c')
end.
<u>Пример</u>
Сколько часов, минут и секунд надо на задачу? 1 13 42
Сколько задач? 6
Будет затрачено 7 час 22 мин 12 c