Ответ:
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.
Объяснение:
пхах, тоже олимпиада))
Компакт-диск
Вот так вроде бы
На каждый символ в 8 символьном альфавите уходит 3 бита.
Чтобы найти сколько битов содержит 20 символов мы умножит 20 на 3=60 битов
Program program1;
var
a, b, c, p: real;
begin
write('Введите длины сторон треугольника: ');
readln(a, b, c);
p := a + b + c;
writeln('Периметр треугольника со сторонами ', a, ', ', b, ' и ', c, ' равен ', p);
end.