Program n1;
var i: integer;
begin
for i:=10 to 99 do if i*i mod 13=0 then write(i,' ');
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (рост,вес):=ReadReal2('Введите рост в см и вес в кг:');
Writeln('Ваш ИМТ равен ',вес/Sqr(рост/100):0:1)
end.
<u>Пример</u>
Введите рост в см и вес в кг: 170 60
Ваш ИМТ равен 20.8
X=x-2=3-2=1
y=y+4=16+4=20
x=x+5=1+5=6
y=y-3=20-3=17
x+y=6+17=33
2) разделить большой орех на 2 и маленький на 2 и дать по 1 кусочку(маленького и большого) мальчику а остальной пол большого и пол маленького дать карлсону. 1)для сбора урожая им не потребуется мышка. т.к есть сосед или соседка