Составить программы введите несколько чисел. найдите произведение чисел меньших 7. введите несколько чисел. найдите количество двузначных чисел. введите несколько чисел. определить каких чисел меньше - больше 10 или меньше 10 введите несколько чисел. вывести числа от 12 до 40 кратные 7.
236
334
Ответы на вопрос:
Первая программа var n, i, x, s : integer; t : boolean; begin writeln('количество чисел'); readln(n); s : = 1; t : = false; for i : = 1 to n do begin writeln(i,' число'); readln(x); if x < 7 then begin t : = true; s : = s*x; end; end; if t then writeln('ответ ',s) else writeln('ответ ',0); end.втораяvar n, i, x, s : integer; begin writeln('kolichestvo chisel'); readln(n); s : = 0; for i : = 1 to n do begin writeln(i,' chislo'); readln(x); if (x > = 10) and (x < 99) then s : = s + 1; end; writeln('otvet: ',s); end.третьяvar n, i, x, s : integer; begin writeln('kolichestvo chisel'); readln(n); s : = 0; for i : = 1 to n do begin writeln(i,' chislo'); readln(x); if x > 10 then s : = s + 1 else if x < 10 then s : = s - 1; end; if s > 0 then writeln('chisel > 10 bolche') else if s < 0 then writeln('chisel < 10 bolche') else writeln('chisel porovnu'); end.четвёртаяvar n, i, x : integer; st : string; begin writeln('kolichestvo chisel'); readln(n); for i : = 1 to n do begin writeln(i,' chislo'); readln(x); if (x > 12) and (x < 40) and (x mod 7 = 0) then st : = st + inttostr(x) + ' '; end; writeln('otvet: ',st); end.
Метод set нужен для того что бы присвоить закрытым (private) переменным в классе какое-либо значение. т.к поле private доступно только для методов этого класса. а конструктор в зависимости от условия присваивает им какое-либо дефолтное значение . разница в том что конструктор запускается автоматически при создании объекта. пример (с++) class fraction { private: int n; int den; public: fraction(); // прототип конструктора void setfraction(int, int); // прототип сет-метода }; void fraction: : setfraction(int num, int denum) // сам сет-метод { n = num; den = denum; } fraction: : fraction() // конструктор { int n = null; int den= null; }
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
malekovemir06.12.2020 00:27
-
dinbili304.04.2023 07:57
-
Anilecchi26.03.2023 14:30
-
leonidkhadzhinov29.04.2023 12:44
-
AlinaZimina111.03.2023 15:35
-
алінка2012.11.2020 13:15
-
Baby1FNAF11.01.2020 03:08
-
covavector112.05.2020 08:17
-
then3rvnyy05.02.2023 23:55
-
vova373421.10.2022 03:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.