пишешь задачу наверху
а) 10 б) 11 в) 20 г) 21
а правильный ответ сделать, что бы он вылетал
<span>a = 4
b = 6
b = 8+a*b = 8+4*6 = 8+24 = 32
a = b/4*a = 32/4*4 = 8*4 = 32</span>
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
Можно узнать о своих одноклассниках и немного про каждого написать. Потом написать я очень люблю свой класс он очень хороший. Мне повезло что у меня такой класс
Var
t:real;
begin
Readln(t);
Writeln('Звук в летний день при температуре ', t, '°С распространяется со скоростью ' , 331 + 0.6*t:0:2, 'м/c');
end.
Пример:
8.1
Звук в летний день при температуре 8.1°С распространяется со скоростью 335.86м/c