Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</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.
1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)
3 человека муж жена и его младший брат
Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить