B
C
О
A А
2
D
Дано: AO = D0, 21 = 22.
Доказать: ДАОВ = ADOC.​

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.

первый применяется художников посетить эту выставку для того, чтобы обогатить себя новыми идеями. второй планируется продать в вестибюле прикладного искусства. треть цель группы расстояние студенты должны были сдавать экзамен в с опережением графика. четвёртое дело в том, чтобы увеличить производительность студенческих групп. пятый университет ставит перед собой разработать диплом мощный высококвалифицированных работников.

передать, конечно. сохранить - запомнить, выучить.

1.

var a, b, c: real

begin 

  readln(a, b, c);

  if (a< b)and(a< c) then writeln('меньшее число: ', a);

  if (b< a)and(b< c) then writeln('меньшее число: ', b);

  if (c< a)and(c< b) then writeln('меньшее число: ', c);

end.

2.

var n: integer;

begin

  writeln('введите количество килограмм');

  readln(n);

  writeln('количество полных тонн: ', n div 1000)

end.