Ответ:
k = int(1)
n = int()
for i in range(8):
k *= 3
n += 3
print('Через ',n,' годин(и)- ',k,' клітин')
x = int(input())
s = int(1)
h = int()
while x>0:
x -= s
s += 1
h += 1
print(h)
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
ГистограммыГрафикиКруговые диаграммыЛинейчатые диаграммыДиаграммы с областямиТочечные диаграммыБиржевые диаграммыПоверхностные диаграммыКольцевые диаграммыПузырьковые диаграммыЛепестковые диаграммы
Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>