Var
x,f:real;
begin
Write('x='); Read(X);
if (x<1) or (x>5) then f:=9*x/17
else f:=Sqrt(x*x+81);
Writeln('f(x)=',f)
end.
1). x=1+5+5+5-3+8-7+2=16.
2). x=12-2+1-3+4-2-3-5=2.
1) var
x:integer;
begin
readln(x);
if x>0 then
writeln(1)
else if x<0 then
writeln(-1)
else
writeln(0);
<span>end</span>
Компьютер ->память
Компьютер -> процессор
Компьютер -> устройства ввода -> мышь
Компьютер -> устройства вывода -> принтер
P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.