8 Ячеек
B2|C2
B3|C3
B4|C4
B5|C5
<span>25 div 3= 8.
3*8=24.
8- результат </span>целочисленного деления.
Uses crt;var k, i, a, b, c: byte;
begin clrscr; randomize; for i := 1 to 10 do begin a := random(1, 10); b := random(1, 10); write(a, ' * ', b, ' = '); read(c); if a * b = c then inc(k); end; case k of 0..3: writeln(k, '0% Неудовлетворительно'); 4..7: writeln(k, '0% Удовлетворительно'); 8..9: writeln(k, '0% Хорошо'); 10: writeln(k, '0% Отлично'); end;end.
Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.
Система управления базами данных (СУБД) - это совокупность языковых и программных средств, предназначенных для создания, ведения и совместного использования БД многими пользователями.
Ответ СУБД