БУДЛАСКА В Паскалі написати код Дано три будь-яких дійсних
числа. Знайти суму тих, що належать інтервалу [-6, 6].
числа. Знайти суму тих, що належать інтервалу [-6, 6].
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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]. Результат виводиться на екран.
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.