Sub mm()
M = Cells(2, 7)
N = Cells(2, 15)
For i = 1 To N
For J = 1 To M
Cells(J + 3, i) = "'*"
Next J
Next i
<span>End Sub</span>
Как решать пацаны скажите
86-8=78 всего играет в игры
54+62=116 игродетей
116-78=38 детей играют и в квесты и в симуляторы
Монитор
-----------------------------------
program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку- ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn(s);
end.