(35 ) доработать программу в pascal так, чтобы она выполняла вычисления n раз с разными исходными данными, используя оператор цикла for. переменную n ввести с клавиатуры.

var n: integer;
a,b,m: real;
begin
writeln('меню: ');
writeln('1.килограмм');
writeln('2.милиграмм');
writeln('3.грамм');
writeln('4.тонна');
writeln('5.центнер');
writeln('ваш выбор: ');
readln(n);
writeln('введите массу ');
readln(m);
case n of
1: writeln(' масса в кг =',m: 4: 2);
2: writeln(' масса в кг =',m1000: 4: 2);
3: writeln(' масса в кг =',m/1: 4: 3);
4: writeln(' масса в кг =',m1000: 4: 2);
5: writeln(' масса в кг =',m*100: 4: 2);
else writeln('такого номера единицы массы не существует');
end;
readln;
end.

109

465

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

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

elmira64

Информатика

4,4(77 оценок)

{} var n : uint64; sum, count, max: byte; begin write ('введите натуральное число: '); readln (n); repeat if ((n mod 10) mod 2)=0 then inc (sum, n mod 10) else if (n mod 10)> max then max: =n mod 10; if (n mod 10) = 2 then inc (count); n: =n div 10; until n=0; writeln ('сумма четных цифр: ', sum); writeln ('кол-во цифр 2: ', count); if max=0 then writeln ('нет нечетных цифр') else writeln ('макс. нечетная цифра: ', max); end.

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

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

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

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

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

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

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

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

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

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