алг. обход прям.области
нач.
нц пока <продолжается стена> повторять
шаг
кц
поворот
кон.
как то так)
Var a,b:real;
x:real;
begin
write('введите концы отрезка a,b a<b');
read(a,b);
write('введите число х');
read(x);
if (x>=a) and (x<=b) then write(' принадлежит') else write(' не принадлежит');
end.
1.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if a mod 4 = 0 then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
0
k = 2
2.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a>9)and(a<100)and(a mod 10 = 4) then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
204
4
0
k = 1
14. Мне кажеться, что в кошельке было две монеты по одному рублю.
15. Два,вроде бы.
Родителей пытала хд
Удачи,что ль :)