Только такой вижу! Умножать на 2 нельзя - сразу получится четное число, из которого никак прибавляя и ли умножая на 2 нечетное число (17) не получить!
11111111
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('--------');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
-------
3
Вывод:
4 2/3
Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
Всего <em>29</em> точек (окна не входят). При рисовании смотритена картинку!!!
1 (10, 0)
2 (10, 2)
3 (6, 7)
4 (-2, 7)
5 (-8, 1)
6 (-12, 0)
7 (-11, - 1)
8 (-12, -1)
9 (-12, -4)
10 (-8, -4)
11 (-8, -3)
12 (-7, -2)
13 (-6, -2)
14 (-5, -3)
15 (-5, -4)
16 (-6, -5)
17 (-7, -5)
18 (-8, -4)
19 (4, -4)
20 (4, -3)
21 (5, -2)
22 (6, -2)
23 (7, -3)
24 (7, -4)
25 (6, -5)
26 (5, -5)
27 (11, -4)
28 (11, -2)
29 (10, 0)
Окна нарисуйте на свой вкус.