Программа в PascalABC
var
c, b, a, d, Z : Integer ;
begin
writeln('(c+4ba)d/2cb+(2a2c)') ;
writeln(' Введите значение с ') ;
readln(c) ;
writeln('Введите значение b') ;
readln(b) ;
writeln('Введите значение а') ;
readln(a) ;
writeln('Введите значение d') ;
readln(d) ;
Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;
writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ;
End.
Должно сработать
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.
X = 5; y = 15.
Y = 20;
X = 0.
T = 20;
X = 0 + 20 + 20 = 40;
Y = 40 + 20 = 60.
Ответ: 3.
привет. это похоже на код из ардуино. Как считать числа из textBox и записать их в массив если они разделены пробелом?
К примеру если в textBox: 45 6 7, то в массиве будет mas[0]=45; mas[1]=6;
mas[2]=7
пользуйся