Нужно составить уравнения трех прямых, ограничивающих область (см. вложение). А затем можно писать программу. Считаем попаданием в область, если точка находится строго ВНУТРИ треугольника. Если надо учитывать и границы, неравенства будут нестрогими.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты х и у точки:');
if (y>-3) and (y<5*x/3+2) and (y<-5*x/3+2) then Writeln('попали')
else Writeln('не попали')
end.
Решение тут простое, а вот как оформить...наверно блок-схему имеет смысл нарисовать.
Число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число.
Легко видеть, что по результатам шестого шага алгоритма получилось число k. Но мы полагали, что b=2k, поэтому Бим удваивает сообщенное ему число и получает b.
Примеры решений:
1. A=37, B=18
3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=B
2. A=4, B=2
3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=B
3. A=12345, B=222
3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=B
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.
var
s,s1:real;
k:integer;
begin
s:=10;
k:=1;
while s<20 do
begin
s:=s*1.1;
k:=k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s:=10;
s1:=10;
k:=1;
while s<200 do
begin
s:=s+s1*1.1;
s1:=s1*1.1;
k:=k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.