Ответ:
program z_1;
var x,y,z,k: integer;
s:real;
begin
k:=0;
read(x,y,z);
s:=((x*2)+(y*3)+(z*4))/(x+z+y);
while s < 4 do
begin
k:=k+1;
s:=((x*2)+(y*3)+(z*4)+(k*5))/(x+z+y+k);
if s >= 3.5 then break;
end;
writeln(k)
end.
Объяснение:
пхах, тоже олимпиада))
Все что doc, и txt это текстовый файл, графические это jpg wav, а программы bmp, exe
Разность кубов a^3-b^3
program asd;
var a,b,c:integer;
begin
read(a,b);
c:=a*a*a-b*b*b;
write(c);
<span>end.</span>
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
clrscr;
write('Введите радиус круга:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга:',S);
readkey;
end.
33₄ = 3×4+3 = 15; 21₇ = 2×7+1 = 15 - верно
33₈ = 3×8+3 = 27; 21₄ = 2×4+1 = 9 - неверно