Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.
1 навести курсор на ошибочно написанный символ
2 кликнуть левой кнопкой мыши
3 delete
В первых двух корзинах на 27 меньше, чем во всех трёх => в 3 корзине 27 мячей
1) 90 - 27 - 34 = 29 (м)
Ответ: в первой корзине 29 мячей.
<em>Очень извиняюсь, если неправильно, сплю на ходу х)</em>
Развернутая форма числа - представление числа в виде суммы каждого разряда числа.
4563 = 4 × 10^3 + 5 × 10^2 + 6 × 10^1 + 3 × 10^0
100101 = 1 × 2^5 + 0 ×2^4 + 0 ×2^3 + 1 ×2^2 + 0 ×2^1 + 1 ×2^0
AC6 = 10 ×16^2 + 12 ×16^1 + 6 × 16^0
Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then
begin
if x<-1 then y:=3*x
else if x<1 then y:=sin(x)-cos(x)
else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
<span>end.</span>