Напишите пожалуйста программу в паскале

Question

Напишите пожалуйста программу в паскале

Александра Пашинина Ученик (87), на голосовании 6 месяцев назад

1. Вводится два числа а и b (a<b). На диапазоне от а до b определить среднее
арифметическое четных чисел .
2. Вводится два числа а и b (a<b). На диапазоне от а до b определить
количество чисел — сумма цифр которых кратна «3» и напечатать все такие
числа в данном диапазоне.

Answer 1

Программа для определения среднего арифметического четных чисел в заданном диапазоне:

program AverageOfEvenNumbers;
var
a, b, sum, count, num: integer;
average: real;
begin
sum := 0;
count := 0;

writeln('Enter two numbers a and b (a < b): ');
readln(a, b);

for num := a to b do
begin
if num mod 2 = 0 then
begin
sum := sum + num;
count := count + 1;
end;
end;

if count > 0 then
begin
average := sum / count;
writeln('Average of even numbers in the range from ', a, ' to ', b, ' is: ', average:0:2);
end
else
begin
writeln('There are no even numbers in the specified range.');
end;
end.

Программа для определения количества чисел, сумма цифр которых кратна 3, и их вывод:

program SumOfDigitsDivisibleBy3;
var
a, b, num, digit, sum: integer;
begin
writeln('Enter two numbers a and b (a < b): ');
readln(a, b);

writeln('Numbers with sum of digits divisible by 3 in the range from ', a, ' to ', b, ':');
for num := a to b do
begin
sum := 0;
for digit in num do
begin
sum := sum + digit;
end;

if sum mod 3 = 0 then
begin
writeln(num);
end;
end;
end.

Обе программы могут быть запущены в средах разработки, поддерживающих язык программирования Pascal.