Предмет: Информатика,
автор: Аноним
БУДЛАСКА В Паскалі написати код Дано три будь-яких дійсних
числа. Знайти суму тих, що належать інтервалу [-6, 6].
Ответы
Автор ответа:
0
program SumInRange;
var
num1, num2, num3, sum: real;
begin
// Введення трьох дійсних чисел
write('Введіть перше число: ');
readln(num1);
write('Введіть друге число: ');
readln(num2);
write('Введіть третє число: ');
readln(num3);
// Обчислення суми чисел, які належать інтервалу [-6, 6]
sum := 0;
if (num1 >= -6) and (num1 <= 6) then
sum := sum + num1;
if (num2 >= -6) and (num2 <= 6) then
sum := sum + num2;
if (num3 >= -6) and (num3 <= 6) then
sum := sum + num3;
// Виведення результату
writeln('Сума чисел в інтервалі [-6, 6]: ', sum);
readln;
end.
Програма спочатку запитує у користувача три числа, а потім обчислює суму лише тих чисел, які належать інтервалу [-6, 6]. Результат виводиться на екран.
robotagadanilo:
=^)
ща всьо будіт
створи запитання пж воно так не відправиться
program CheckSumDivisibleByFive;
var
number, digitSum: integer;
begin
// Введення трьохзначного числа
write('Введіть трьохзначне число: ');
readln(number);
// Обчислення суми цифр числа
digitSum := (number mod 10) + ((number div 10) mod 10) + (number div 100);
// Перевірка, чи є сума цифр кратною п'яти
if digitSum mod 5 = 0 then
writeln('Сума цифр числа є кратною п\'яти')
else
writeln('Сума цифр числа не є кратною п\'яти');
readln;
end.
var
number, digitSum: integer;
begin
// Введення трьохзначного числа
write('Введіть трьохзначне число: ');
readln(number);
// Обчислення суми цифр числа
digitSum := (number mod 10) + ((number div 10) mod 10) + (number div 100);
// Перевірка, чи є сума цифр кратною п'яти
if digitSum mod 5 = 0 then
writeln('Сума цифр числа є кратною п\'яти')
else
writeln('Сума цифр числа не є кратною п\'яти');
readln;
end.
о, готово
Програма спочатку запитує у користувача трьохзначне число, потім обчислює суму цифр цього числа і перевіряє, чи є ця сума кратною п'яти. Результат виводиться на екран.
Похожие вопросы
Предмет: Английский язык,
автор: zokirovafariza
Предмет: География,
автор: rznkvsf
Предмет: История,
автор: marusjaoros710
Предмет: Английский язык,
автор: zichcontemporary
Предмет: Алгебра,
автор: Ksenya13