Закрываем крышку , нажимаем кнопку включения , набор воды и порошка в барабан , раскрутка барабана , отжим , ну (можно добавить
выключить)
Остановочные пункты,название отеля/кафе/ресторанов
Program z1;
var x,y:integer;
begin
writeln('введите координаты');
readln(x,y);
if (x>0) and (y>0) then writeln('1')
else
if (x>0) and (y<0) then writeln('4')
else
if (x<0) and (y>0) then writeln('2')
else writeln('3');
end.
Смотри ты хорошо выключаешь то попробуй выключить и перевернуть подуй и все просто у меня срабатывало
Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.