1)
Это задание делается в Экселе/Либре. Мы создаем таблицу ABCD и вниз от 1 до 4 как на рисунке. Далее подставляем по формуле каждое число и получаем
d1 = a1 - 2 * b1-4 * c$1
d1 = 5 - 2*3-4*0
d1 = 5-6=-1
2)
var
a,c,e,b : real;
begin
randomize;
write('a = '); read(a);
write('c = '); read(c);
write('e = '); read(e);
b:=random(100);
writeln('|a+c+e| = ', abs(a+c+e):0:3);
writeln('sqr(a+b) = ', sqr(a+b):0:3);
writeln('2*a - c = ', (2*a-c):0:3);
end.
3)
1199
Переписываем программу и вводим значение 5631.
x,a,b,c,s,m : integer;
readln(x);
a:=x div 10;
b:=a mod 10 div 10;
c:=a div 100;
s:=x mod 1000;
m:=a+b+c+s;
writeln(m);
1)
Это задание делается в Экселе/Либре. Мы создаем таблицу ABCD и вниз от 1 до 4 как на рисунке. Далее подставляем по формуле каждое число и получаем
d1 = a1 - 2 * b1-4 * c$1
d1 = 5 - 2*3-4*0
d1 = 5-6=-1
2)
var
a,c,e,b : real;
begin
randomize;
write('a = '); read(a);
write('c = '); read(c);
write('e = '); read(e);
b:=random(100);
writeln('|a+c+e| = ', abs(a+c+e):0:3);
writeln('sqr(a+b) = ', sqr(a+b):0:3);
writeln('2*a - c = ', (2*a-c):0:3);
end.
3)
1199
Переписываем программу и вводим значение 5631.
var
x,a,b,c,s,m : integer;
begin
readln(x);
a:=x div 10;
b:=a mod 10 div 10;
c:=a div 100;
s:=x mod 1000;
m:=a+b+c+s;
writeln(m);
end.