Задание 1:
b:= 6/2*1(будет 3) переменная b перезаписалась;
a:= 2*6 + 3×3(будет 21);
задание 1:
ответ 21;
задание 2:
не могу понять что найти(тут просто мы задали формулы, например для переменной s:= pi*r*r, тут как бы просто подставь числа) есть константа pi и значение r)
Думаю немножко помог:)
Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
680
программу я раньше уже приводила
n = 0
kolvo_trevog = 14
for bin in 1..2**30-1
s = bin.to_s(2)
next if s.include?("11")
i = 0
for j in 0..s.size
i += 1 if s[j] == "1"
end
next if i != kolvo_trevog
s = ("000000000000000000000000000000" + s)[-30..-1]
n += 1
p [s, i, n] if n % 100 == 0
end
p [s, i, n]