11.08.2021 17:14

Есть ответ 👍

Синформатикой. 7 класс. turbo pascal №1: составить программу, которая преобразует введённое с клавиатуры дробное число в денежный формат (12.5 в 12 рублей 50 копеек). a - исходные данные x,y - результаты trunc (12,5)=12 frac (12,5) =0.5 0.5*100=50.0 trunc (50.0)=50 №2: составить программу, вычисляющую сумму цифр трёхзначного числа n. n - трёхзначное число (напр.762) - исходные данные a,b,c - цифры этого числа №3: программа находит из а и в большее. а,b - исходные c - результат №4: с кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. какое наименьшее количество коробок потребуется для перевозки n килограмм конфет? №5: int(-5,89) int(0,53) round(-5,8) round(5,2) frac(-17,4) frac(0,32) trunc(-17,4) trunc(15,2) 45 div 4 15 mod 8 (489 div 10) mod 10

225

467

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

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

kivrosa

Информатика

4,8(24 оценок)

var

a: real;

x, y: integer;

begin

writeln('введите дробное число');

readln(a);

x: = trunc(a);

y: = frac(a);

writeln(x, ' рублей ', y * 100, ' копеек');

readln;

end.

var

n: 100..999;

a, b, c: 0..9; //a - сотни, b - десятки, с - единицы

begin

writeln('введите трехзначное число');

readln(n);

a: = n div 100;

b: = (n mod 100) div 10;

c: = n mod 10;

writeln('сумма цифр: ', a + b + c);

readln;

end.

var

a, b, c: real;

begin

writeln('введите числа а и b');

readln(a, b);

if a > b then

begin

c: = a;

writeln(c, ' - большее число');

end;

if b > a then

begin

c: = b;

writeln(c, ' - большее число');

end;

if b = a then writeln('числа равны');

readln;

end.

Love25252525

Информатика

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

1) ответ посмотри здесь: 2) ответь посмотри здесь:

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

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

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

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

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

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

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

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

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

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