Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
Ответ:
Если часы только целые var a:integer;
Объяснение:
program Project1;
var a:real;
begin
write('Введите время, которое тратите на уроки: ');
readln(a);
if a<=1 then
write('Вы ленитесь')
else
if a<=3 then writeln('Это оптимальное время')
else writeln('Подумайте о здоровье');
readln;
end.
<span>информация представленная в форме пригодной для обработки компьютером 6 букв
это будет данные.
</span>