Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
Обман, воровство личной информации
ну вроде бы так, если все верно, то отметь как лучший ответ, буду благодарна
есть несколько программ, и все они должны подойти, смотри картинки
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
Количество слов на 1 больше чем пробелов.
var
s:string;
i,r:integer;
begin
readln(s); //ввод строки
i:=1;
while i<=length(s) do begin
if s[i]=' ' then r:=r+1;
i:=i+1;
end;
writeln(r+1);
readln;
end.
Program n1;
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.