Билет 29

Напишите программу на языке программирования (или составьте алгоритм). Выясните, лежат ли на одной прямой точки А(x1, y1), B(x2, y2), C(x3, y3).

Пример

Входные данные	Результат
x1=1 y1=1 x2=6 y2=3 x3=11 y3=5	Точки лежат на одной прямой

program z3_b29;

var

x1, x2, x3, y1, y2, y3, z, n:real;

Begin

write (‘Введите координаты точки А ');

readln (x1,y1);

write (‘Введите координаты точки В ');

readln (x2,y2);

write (‘Введите координаты точки C ');

readln (x3,y3);

z:=(x3-x1)/(y3-y1);

n:=(x3-x2)/(y3-y2);

if (z=n) and (z=(x2-x1)/(y2-y1)) then

writeln ('Точки лежат на одной прямой’)

else

writeln ('Точки не лежат на одной прямой’);

end.

Алг z3_b29 ( вещ x1, x2, x3, y1, y2, y3, лит st)

арг x1, x2, x3, y1, y2, y3

рез st

нач вещ z, n

z:=(x3-x1)/(y3-y1);

n:=(x3-x2)/(y3-y2);

если (z=n) и (z=(x2-x1)/(y2-y1))

то

st:='Точки лежат на одной прямой’

иначе

st:= 'Точки не лежат на одной прямой’

все

кон

Билет 30

Напишите программу на языке программирования (или составьте алгоритм). Найдите количество четных цифр в десятичной записи числа n.

Пример

Входные данные	Результат
1486 371	3 0

Program z3_b30;

var

n, y, k:integer;

Begin

readln (n);

k:=0;

while n<>0 do

begin

y:=n mod 10;

if y mod 2 =0 then k:=k+1;

n:=n div 10;

end;

writeln ('k=',k);

end.

Алг z3_b30 ( цел n,к)

арг n

рез k

нач цел y

k:=0

пока n<>0

нц

y:= mod (n ,10)

если mod (y ,2 ) =0

то k:=k+1

все

n:=n div 10;

кц

кон