<em><u>пожарить яйца</u></em>
<em><u>1. достать сковороду</u></em>
<em><u>2.налить масло</u></em>
<em><u>3. включить плиту</u></em>
<em><u>4.достать яйца</u></em>
<em><u>5. разбить их в сковороду.</u></em>
<em><u>6. посолить</u></em>
<em><u>7.пожарить.</u></em>
<em><u>8. выключить плиту.</u></em>
<em><u>9. съесть яйца
подойдёт?
</u></em>
Отмок, первое, или ком, второе непонимаю, лестница или железная дорога это, наверное дорогую. сердце.
лучше перезалей задание, с хорошим качеством
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:integer:=0;
for var i:=0 to 9 do
if a[i]=0 then begin p:=i+1; break end;
if p>0 then Writeln('Номер первого нулевого элемента ',p)
else Writeln('В массиве нет нулевых элементов')
end.
<u>Пример</u>
30 22 29 -47 11 39 13 0 46 22
Номер первого нулевого элемента 8
Program CrazyCoder;
var n:real; i:integer;
begin write('Введите n ');
read(n);
if (n<2) or (n>10) then
begin
while (n<=1) or (n>10) do
begin
writeln('Ошибка! Число n должно быть в диапазоне от 2 до 10');
write('Введите n ');
read(n);
end;
end;
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
<span>end.</span>