Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;
Это точный ответ!!!!!!!!!!!!!!!!
Расстояние, на которое удалится кузнечике, после любого прыжка делится на 6 см, т.к. 30 и 42 делятся на 6.
Поэтому наименьшее возможное ненулевое расстояние, на которое он может упрыгать, не меньше 6 см.
Ровно на 6 см он может упрыгать так: трижды прыгнуть вправо на 42 см (он будет на отметке 42 * 3 = 126 см), а затем 4 раза прыгнуть влево на 30 см, тогда он будет на расстоянии 126 см - 4 * 30 см = 6 см
Var
i,n:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
readln(a[i]);
if a[i]<0 then n:=n+1
end;
writeln('Ответ: ',n)
<span>end.</span>
<span>(это написано чтобы хватило символов до 20(правила сайта))
Ответ: 6B1A3C1A6B</span>
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(23,0,100); a.Println;
Println(a.Where(t->t<50).Average,a.Where(t->t>=50).Average)
end.