Var a,b,c,d,e:integer;
begin
for a:=100 to 500 do begin
b:=a mod 2; c:=a div 10 mod 10; d:=a div 100;
e:=b+c;
if e=15 then writeln(a);
end;
end.
8 /2 = 4
4/2 = 2
2/2 = 1
1 добавляем 4 = 14
14/2 = 7
<span>Графика (лингвистика), тоже самое, что и письменность — совокупность письменных средств — букв, графем, знаков препинания и т. п. — какого-либо языка.
</span>
Var
y, f, x, b, r: real;
begin
readln(x, b, r);
y := x * x * x + b * b * b * b - r / 3 - 5;
writeln('y = ', y);
f := x - 1 + b - 3 - 4;
writeln('f = ', f);
end.