// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
Программа написана на Python 3.6
from math import sqrt
x = 0.7
while x <= 0.9:
y = 3 * x * 2**x + sqrt(3 * x) + 12
print('При x =', x, 'y =', round(y, 2))
x += 0.06
<span> x = round(x, 2)
</span>
1)6.9877929 КБ
2)77594624 КБ
3)256 КБ
4)31457280
5)263168
6)628736
7)684
8)409600
9)9437184
10)2,5
Ответ: В первом ответ 3, во втором - 2
Объяснение:
Uses crt;
var x:integer;
begin
write('Лет:'); read(x);
if (x>=5) and (x<=18) then write('Ребенок.');
if (x>18) and (x<=45) then write('Молодой человек.');
if (x>55) and (x<=100) then write('Пожилой.');
<span>end.
Например,а про человека(какой он),не всегда можно по годам определить!</span>