о! научился формулировать . уже хорошо.
program zadanie1; varmax,num,a : byte; beginmax: =0; writeln('vvodite chisla'); repeatreadln(a); if a*a> 225 then writeln('slishkom bolshoe chislo') else if max< a then max: =a ;
until a=0; readln; writeln('max=',max); end.
Поделитесь своими знаниями, ответьте на вопрос:
Найдите в списке шесть пар множеств, между которыми существуют отношения «является разновидностью». определите в каждой такой паре имя подмножества. назовите для него хотя бы одно дополнительное свойство: • книга; • бензин; • врач; • молоко; • строитель; • учебник; • жидкость; • справочник; • человек.