БУДЛАСКА В Паскалі написати код Дано три будь-яких дійсних
числа. Знайти суму тих, що належать інтервалу [-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.
о, готово
Програма спочатку запитує у користувача трьохзначне число, потім обчислює суму цифр цього числа і перевіряє, чи є ця сума кратною п'яти. Результат виводиться на екран.
Вас заинтересует
2 месяца назад
2 месяца назад
1 год назад
7 лет назад