если хотим получить универсальное решение 1 сначала составляем таблицу или запись или как угодно назовите - набор связаных между собой данных определенных типов (зависит от...
Подробнее
1) program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c); if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln(' &nbs...
Подробнее
основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим)....
Подробнее
эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим : 111100% = 60% девочек 1100 = 12 мальчиков 12 мальчиков составляют 40% учащихся в классе с...
Подробнее
вот так понятней буде)) ну и более правильно, для var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3...
Подробнее
№1 program z1; var n: integer; begin write ('введите число n: '); readln(n); if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным...
Подробнее
var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else beg...
Подробнее
Используя этот сайт, Вы даете согласие на использование cookies. Вы можете отказаться от использования cookies, настроив необходимые параметры в своем браузере.