Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.
Результат:
n = 6 k = 64
Емае сама ищю сори кнч! Блин сюда надо не более 20 символов
Основание системы счисления = 3:
120(3) = 1*3^2+2*3 = 9+6 = 15
110(3) = 1*3^2+1*3 = 9+3 = 12
1000(3) = 1*3^2 = 27
15+12=27
Самое первое правило безапасности в сети интернет - это,конечно,осторожность. Не переходить по всплывающим ссылкам,по неизвестным сайтам. Как говорится: волков бояться-в лес не ходить.
Второе,как я думаю - это включенная защита антивируса от спама. Там так же могут быть и вредоносные вирусы и материалы порнографической информации.
Третье- это проверенные источники.
И в общем,я думаю, если быть осторожным и внимательным - сеть интернет,будет очень полезным.
1) fff,sred_sk,r34,Y4,h3щя67b.
2)
- 0
- 6
- 49
- 7
- 6
- 45.45
- 6
- 16
- 654
- любое число
- любое число в диапазоне от 0 до 453
3) begin -оператор начала программы.
real - применяется при значении вещественных переменных.
and - логическая операция имеющая значение "и".
write - выводит на экран данные.
var - ключевое слово для описания переменных.
char - применяется при значении буквенных переменных,то есть где участвуют слова.
integer - применяется при значении целых чисел.
4) b = (1+(c/(6+a*c)))/(5+a)