Const max=18;
var i,k:byte;
ar:array [1..max] of integer;
s:integer;
begin
writeln('Начальный массив случайных чисел в диапазоне [0,30)');
for i:=1 to max do begin
ar[i]:=random(0,29);
write(ar[i]:6);
end;
k:=0;
s:=0;
for i:=1 to max do begin
if ar[i]>15 then
k:=k+1;
if not odd(ar[i]) then
s:=s+ar[i];
end;
writeln();
writeln('Задание 1. ', 'k=', k);
writeln('Задание 2. ', 's=', s);
end.
Кнастертанию символов относиться паралелипипит и треугольник
Ответ:
program Number3;
var
a, i: Integer;
begin
Randomize;
a := Random (900) + 100;
WriteLn ('Получено число ', a);
WriteLn ('сотни ', a div 100);
WriteLn ('десятки ', (a div 10) mod 10);
WriteLn ('единицы ', a mod 10);
ReadLn;
end.
В последнем выражении <span>(cos(sqrt(x+y))/sin(sqrt(x+y)) первая скобка</span> лишняя, должно быть <span>cos(sqrt(x+y)) / sin(sqrt(x+y))</span>
1 дом - Михаил столяр
2 дом - Виктор хирург
3 дом - Алексей токарь
4 дом - Егор окулист