Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.
F1 -функциональная клавиша
Shift<span> — </span>клавиша<span>-модификатор
</span>end- клавиша управления курсором
Var
i, s: integer;
begin
for i := -999 to -100 do
if i mod 70 = 0 then
s := s + i;
writeln(s);
end.
Ответ:
Объяснение:
Растровые изображения обеспечивают высокую точность передачи градаций цветов и полутонов