Завдання №6 Задані числа а. б. с. Замінити нулем ті числа, значення яких більше 10, та порахувати добуток чисел, менших 10 та кiлькiсть нулів.
Лазарус, Інформатика, срочно
Ответы
Ответ:
Вот пример решения данной задачи на языке программирования Pascal (Lazarus):
program task6;
var
a, b, c, product, zeros: integer;
begin
product := 1;
zeros := 0;
// ввод значений a, b, c
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
// замена чисел больше 10 на 0
if a > 10 then a := 0;
if b > 10 then b := 0;
if c > 10 then c := 0;
// подсчет произведения чисел меньше 10 и количества нулей
if a < 10 then
product := product * a
else
zeros := zeros + 1;
if b < 10 then
product := product * b
else
zeros := zeros + 1;
if c < 10 then
product := product * c
else
zeros := zeros + 1;
// вывод результатов
writeln('Произведение чисел меньше 10: ', product);
writeln('Количество нулей: ', zeros);
end.
В данном решении используются переменные a, b и c для хранения введенных чисел, а также переменные product и zeros для подсчета произведения чисел меньше 10 и количества нулей соответственно.
Сначала происходит ввод значений a, b и c с помощью функции readln. Затем каждое из чисел проверяется на то, больше ли оно 10. Если да, то оно заменяется на 0 с помощью оператора if.
Затем происходит подсчет произведения чисел меньше 10 и количества нулей. Если число меньше 10, то оно умножается на переменную product. Если же число равно или больше 10, то значение переменной zeros увеличивается на 1.
Наконец, результаты выводятся с помощью функции writeln.
Пример работы программы:
Введите a: 4
Введите b: 12
Введите c: 8
Произведение чисел меньше 10: 32
Количество нулей: 1
Объяснение: