Просыпаюсь >потягиваюсь >встаю с кровати>иду чистить зубы>одеваюсь>обуваюсь >иду до школы и тд.
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
Задание №1
var
h, m: integer;
begin
<span> write(</span>'Введите часы:');
readln(h);
<span> write(</span>'Введите минуты:');
readln(m);
writeln('Время в секундах:', h * 3600 + m * 60);
end.