Пусть Х - стоит собака, то корова - 4Х, а значит лошадь 4(4Х)=16Х.
Имеем:
Х + 4Х + 16Х = 210р
21Х=210р
Х=10р
Ответ:
Собака стоит 10р; корова 4*10=40р; лошадь 16*10=160р
var i,a,z:integer;
begin
for i:=1 to 5 do
begin
read(z);
if not( z mod 2 = 0) then a:=a+z;
end;
write('sum=',a);
end.
Язык Python
S = raw_input("Введите площадь:")
a = S**0.5
b = 2*a
c = (5*S)**0.5
print "Длины сторон треугольника -", a, b, c
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=');
var i:=a.FindIndex(x->x=k);
if i=-1 then Writeln('нет')
else Writeln('да')
end.
<u>Примеры</u>
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да
n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет