Для общей работы
⇄⇄⇄⇄⇄⇄⇄⇄⇄ и обмена информацией
Program rok;
var a:array [1..30] of integer;
i,s,n:integer;
begin
s:=0;
n:=0;
randomize;
for i:=1 to 30 do
begin
a[i]:=random (25)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if (a[i]>0) then
s:=s+1;
if (a[i]=0) then
n:=n+1;
end;
writeln ('Количество
положительных чисел=',s);
writeln ('Количество
нулей=',n);
end.
Ну тут все предельно ясно. Учитель- это управляющий объект, а ученики - это объект управления. Учитель передаёт знание ученикам.(прямая связь)
А ученики например:отвечают на вопросы или задают их(обратная связь)
И если учитель понимает, что ученики делают ошибку ( судя по проверочным, контрольным и т.д.) И может провести доп занятия или повтор этой темы( которые не поняли ученики)
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
Ответ:
ответ 3
Объяснение:
в одном байте 8 бит значит 4*8=32бит