Пропустил тему по программированию на paskalabc. информатика 10 кл. дали нужно решить 6 . 1) наименьшее из двух чисел. даны 2 числа х и у. найти меньшее из них. если числа равны, то вывести сообщение об этом. 2) частное любых чисел. напишите программу, которая запрашивет два целых числа и выводит запись операции их деления. предусмотрите в программе защиту от аварийной ситуации деления на нуль. 3) фамильярность. напишите программу, которая читает строку, и если это ваше имя то печатает на экране ! а если нет, то ! (учтите что у каждого автора программы скоё имя) 4) чётность числа. напишите программу которая определяет является ли число чётным. 5) символ строки с проверкой. напишите программу выводящую символ с заданным номером из введенной строки. если символа с таким номером нет, то программа должна напечатать слова: нет символа! 6) больше фруктов. одно яблоко весит 100 гр., а один апельсин 150 гр.вам заданное кол-во яблок или заданное кол-во апельсинов. хочется взять то что весит больше. напишите программу , подсказывающую, что лучше взять, яблоки или апельсины? пример 7 ябл. 5 апельс. вывод: берите апельсины! заранее за !

247

400

Посмотреть ответы 2

Ответы на вопрос:

anna0513wolf

Информатика

4,6(100 оценок)

1var x,y: integer; begin writeln('введите х'); readln(x); writeln('введите y'); readln(y); if x< y then writeln('меньшее: ',x) else if x> y then writeln('меньшее: ',y) else if x=y then writeln('числа равны') end. 2 var x,y: integer; begin writeln('введите первое число'); readln(x); writeln('введите второе число'); readln(y); if y=0 then writeln('второе число равно 0. деление невозможно! ') else writeln(x,'/',y,'=',x/y); end. 3 var s,name: string; begin writeln('введите ваше имя'); readln(name); writeln('введите строку'); readln(s); if s=name then writeln('! ') else writeln('! '); end. 4 var x: integer; begin writeln('введите число'); readln(x); if (x mod 2)=0 then writeln('четное') else writeln('нечетное') end. 5 var x: string; i: integer; begin writeln('введите строку'); readln(x); writeln('введите номер символа'); readln(i); if i > length(x) then writeln('нет символа! ') else writeln(x[i]) end. 6 var x,y: integer; begin writeln('количество яблок: '); readln(x); writeln('количество апельсинов: '); readln(y); if (x*100)> (y*150) then writeln('берите яблоки') else if (x*100)< (y*150) then writeln('берите апельсины') else if (x*100)=(y*150) then writeln('вес яблок и апельсинов одинаковый') end.

denisgolubev1

Информатика

4,7(85 оценок)

Руслан

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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