Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
В номерах не понятно где робот изначально находиться!
в 1 номере я поставил нач.точку робота в самый первый закрашенный правый квадрат, во 2 номере в самый низ,в квадрат где заканчивается палка)
1 номер:
использовать Робот
алг
нач
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа не свободно
закрасить
вниз
кц
кон
2 номер:
использовать Робот
алг
нач
нц пока сверху свободно
вверх
закрасить
кц
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока сверху не свободно
закрасить
вправо
кц
вверх
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
остальное сам делай,мне лень)
A:= 30;
<span>a:=30;
b:= 6;
a:=30*3/6 после этого a примет значение a:=15, подставляем в условие
if 15>6 </span><span>then (если условие выполняется), а оно выполняется, то решаем первое уравнение
c:= 2*15-5* (6+2) получаем
c:=-10
если писать на паскале, то будет так
var a,b,c:real;
begina:= 30;b:= 6;
a:= a * 3 / b;if a > b then
c:= 2*a - 5*(b+2)else
c:= 2*a + 5*(b+2);
writeln (c);
<span>end.</span></span>
Const
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Writeln('Введите элементы массива через пробел');
for i := 1 to n do Read(a[i]);
s := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := s;
for i := 1 to n do Write(a[i]:4);
end.
<u>Тестовое решение:</u>
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
0 4 -5 3 10 -4 -6 8 -10 1
===== PascalABC.NET =====
begin
var n: int64;
Print('Введите натуральное число:');
Read(n);
var a := ArrFill(10, False);
while n > 0 do
begin
a[n mod 10] := True;
n := n div 10
end;
Print('В числе отсутствуют цифры');
for var i := 0 to 9 do
if not a[i] then
Print(i);
end.
