Решите все подробноvar k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 45; dat[2] : = 55; dat[3] : = 40; dat[4] : = 15; dat[5] : = 20; . dat[6] : = 80; dat[7] : = 35; dat[8] : = 70; dat[9] : = 10; dat[10] : = 45; m: = dat[1]; for k: = 4 to 10 do begin if dat[k] > = dat[1] then begin m: = m + dat[k] end end; write(m); end.

182

230

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

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

ghkbkb

Информатика

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

integer1. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см). program integer_1; var l, k: integer; begin write ('введите значение l: '); readln (l); k : = l div 100; write ('количество полных метров: ', k,'.'); end. integer2. дана масса m в килограммах. используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг). program integer_2; var m, k: integer; begin write ('введите значение m: '); readln (m); k : = m div 1000; write ('количество полных тонн: ', k,'.'); end. integer3°. дан размер файла в байтах. используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта). program integer_3; var a, k: integer; begin write ('введите размер файла: '); readln (a); k : = a div 1024; write ('количество полных килобайтов: ', k,'.'); end. integer4. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию деления нацело, найти количество отрезков b, размещенных на отрезке a. program integer_4; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a div b; write ('количество отрезков b, размещенных на отрезке a: ', k); end. integer5. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка a. program integer_5; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a mod b; write ('длина незанятой части отрезка: ', k); end. весьма вероятно, что условия следующих покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение , подобной данным. integer6. дано двузначное число. вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления. program integer_6; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; writeln (desyatki); edinizi : = chislo mod 10; writeln (edinizi); end. integer7. дано двузначное число. найти сумму и произведение его цифр. program integer_7; var chislo, desyatki, edinizi, summa, proizv: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; summa : = desyatki + edinizi; proizv : = desyatki * edinizi; writeln ('сумма цифр числа: ', summa); writeln('произведение цифр числа: ', proizv); end. integer8°. дано двузначное число. вывести число, полученное при перестановке цифр исходного числа. program integer_8; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; chislo : = edinizi * 10 + desyatki; writeln ('полученное число: ', chislo); end. integer9. дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа (сотни). program integer_9; var chislo, sotni: integer; begin write ('введите число: '); readln (chislo); sotni : = chislo div 100; writeln (sotni); end. integer10. дано трехзначное число. вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). program integer_10; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); edinizi : = chislo mod 10; writeln (edinizi); desyatki : = chislo mod 100 div 10; writeln (desyatki); end.

kurilov218

Информатика

4,5(45 оценок)

Число, записанное римскими цифрами : mmdcxxxii

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

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

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

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

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

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

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

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

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

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