1)ввести 2 числа,заменить число суммой чисел,а большее произведением. 2)ввести 2 числа а и в заменить первое нулем если оно меньше второго. 3)журнал стоит k руб.какую сдачу получит покупатель если у него в руб. 4)определить ,является ли введенное шестизначное число счастливым,т.е. сумма первых трех цифр числа равна сумме последних трех цифр. 5)определить ,является число а делителем числа в.
Ответы на вопрос:
1)
var
a, b, c: real;
ide: boolean;
begin
ide: = false;
writeln('введите 2 числа');
readln(a, b);
c: = a;
if (ide = false) and (a < b) then
begin
a: = a + b;
b: = c * b;
ide: = true;
writeln('a = ', a, ', b = ', b);
end;
if (ide = false) and (b < a) then
begin
a: = a * b;
b: = a + b;
ide: = true;
writeln('a = ', a, ', b = ', b);
end;
if (ide = false) and (a = b) then
begin
writeln('числа равны');
ide: = true;
end;
end.
2)
var
a, b: real;
begin
writeln('введите 2 числа');
readln(a, b);
if a < b then a: = 0;
writeln('a = ', a, ', b = ', b);
end.
3)
var
k, b: real;
begin
writeln('введите цену журнала');
readln(k);
writeln('введите, сколько у покупателя денег');
readln(b);
if b > k then writeln('покупатель получит ', b - k, ' р сдачи');
if b = k then writeln('покупатель не получит сдачи');
if b < k then writeln('покупателю придется доплатить ', k - b, ' р');
end.
4)
var
a: 100000..999999;
a1, a2, a3, a4, a5, a6: 1..9;
begin
writeln('введите шестизначное число');
readln(a);
a1: = a div 100000;
a2: = (a mod 100000) div 10000;
a3: = (a mod 10000) div 1000;
a4: = (a mod 1000) div 100;
a5: = (a mod 100) div 10;
a6: = a mod 10;
if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('число является счастливым')
else writeln('число не является счастливым');
end.
5)
var
a, b: integer;
begin
writeln('введите числа a и b');
readln(a, b);
if b mod a = 0 then writeln('число ', a, ' является делителем числа ', b)
else writeln('число ', a, ' не является делителем числа ', b);
end.
если все правильно, отметь решение как лучшее)
если возникнут вопросы - задавай
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
mariee875maria08.10.2020 13:45
-
VankaOchevidnost13508.10.2021 17:24
-
GAGHHy12.05.2021 21:29
-
BuMo111.02.2021 21:11
-
Sosushka24.07.2020 08:00
-
UlyaYouth11112.01.2023 03:12
-
KEK2281337148802.06.2020 07:16
-
DenisPaliy13.07.2020 21:37
-
VafaMurad28.02.2021 00:32
-
kristina186115.05.2021 22:03
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.