Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 402</span>
X*x+2*x-15=0
решаем кв уравнение
x=3
Http://ideone.com/H6W5HJ программа на Паскале.
при x=1 a =<span>6.41411200080599E+001
</span> +Блок-схема.
В Unicode каждый символ кодируется двумя байтами, считая пробелы и знаки препинания. В приведённом предложении нет точки в конце. (А должна быть!). Подсчитайте количество символов, умножьте на 2, это и будет ответ.