Я не знаю паскаль. Но вот программа на бейсике. Замените операторы, добавьте объявление переменных и получите свою программу
Ответ:
program vasa228;
var x,y,z,a:int64;
begin
readln(x,y,z);
a:=0;
while round((2*x+3*y+4*z+a*5)/(x+y+z+a))<4 do a:=a+1;
write(a);
end.
Объяснение:
Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
Ответ:
7.A)
8.D)
Объяснение:Я изучаю программирование можете не сомневаться!