1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
Begin
var a:=ArrRandom(10,-10,10).Println;
writeln(a.Where(x->x<0).Max);
end.
А надо в таблицу или нет если днадо то сорри
у меня ток так
//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 3534052
Нечетных 4, четных 3
var c:real;
begin
write ('Введите длину окружности: ');
read(c);
writeln ('Радиус равен: ', c/(2*pi):0:3);
writeln ('1/4 площади круга равна: ', pi*sqr(c/(2*pi))/4:0:3);
end.