Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Решение в фотке , истина=1, ложь=0
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
end.
1 Включить робота 2 Приказать ему подойти к холодильнику 3 Открыть 4 Взять то что нужно 5 Закрыть его 6 Отойти от холодильника xD