1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2.
2.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.
Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести одно число: количество двухзначных чисел, кратных 8, или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
3.Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двухзначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0.
Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести среднее арифметическое двухзначных чисел или выводит «NO», если таких чисел нет. Значение должно выводиться с точностью до десятых.
uses crt;//Запуск программы в консольном режиме НЕОБЯЗАТЕЛЬНО
var
a : Integer;
b : Integer;
i : Integer;
c : Integer;
BEGIN //Начало программы
write('Введите 1 число: '); readln(a);//Ввод значения первого числа
c := b-a-1; write('Введите 2 число: ');
readln(b);//Ввод значения второго числа
writeln(a, ' ' , b); //Вывод двух чисел
writeln(a, ' ' ,a*a,' ' , a*a*a); // Вывод 1 числа, квадрата, куба
for i := 1 to b-a-1 do
begin
a := a + 1;
writeln(a, ' ',a*a, ' ', a*a*a); // Вывод всех чисел от a до b
end;
writeln(b, ' ' ,b*b,' ' , b*b*b);// Вывод 2 числа, квадрата, куба
ReadKey;
end. //Конец программы
1. Увімкнути живлення монітора та системного блока
6. Дочекатися завантаження вікна програми
4. Дочекатись, доки вказівник миші набере вигляду стрілки
5. Двічі клацнути кнопкою миші
10. Клацнути на кнопці ПУСК
9. Дочекатись, доки вікно програми закриється
11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ
12. Дочекатись, поки індикатор на системному блоці не погасне
7. У вікні програми виконати вказівку ЗАКРИТИ
2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ
8. Якщо не передбачено окремого завершення роботи програми, натиснути Закрити.