Напишите программы на языке паскаль:
1. напишите программу, которая в последовательности натуральных чисел
определяет сумму трёхзначных чисел, кратных 4. программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму трёхзначных чисел, кратных 4.
2. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 6 и оканчивающихся на 4. программа
получает на вход количество чисел в последовательности, а затем сами числа.
количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
3. напишите программу, которая в последовательности целых чисел
определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9.
4. напишите эффективную программу, которая по двум данным натуральным
числам a и b, не превосходящим 3, подсчитывает количество нечетных
натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 3. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
5. напишите программу, которая в последовательности натуральных чисел
находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых.
6. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в
последовательности всегда имеется число, кратное 4 и не кратное 7. количество
чисел не превышает 1000. введённые числа не превышают 30 000. программа
должна вывести одно число: количество чисел, кратных 4, но не кратных 7.
телерепортер успел заснять пилотов, занявших второе и третье места, которые поливали друг друга шампанским. Далее в кадр попал мокрый Хилл, поздравляющий пилота, занявшего второе место. Из этого делаем вывод, что Хилл - 3.
Шумахер и Кулхардт пытались втащить на пьедестал почета пилота, занявшего четвертое место. Так как Хилл уже третий, то из перечисленных остался Алези - он 4
В это время Шумахер с четвертым гонщиком пожимали друг другу руки. В это время 2 и 3 места были на пьедистале, следовательно Шумахер - 1.
Ну и остался Кулхардт - он 2
Решается и первая и вторая
Вывод на скриншотах
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
bool check(int, int);
int main()
{
int a, b, c;
cout << "Enter a, b, c: "; //Вводить через пробел
cin >> a >> b >> c;
//Проверка на упорядоченность
if(a <= b && b <= c)
{
//Если числа являются упорядоченными,
// то вывести на экран удвоенные значения
cout << "The numbers are ordered:\n";
cout << (a * 2) << ' ' << (b * 2) << ' ' << (c * 2) << endl;
}
else
cout << "The numbers are not ordered" << endl;
//Проверка на равенство
if(check(a, b) || check(b, c) || check(a, c))
{
cout << "There are equal numbers" << endl;//Есть равные числа
}
else
cout << "Equal numbers are not" << endl;//Нет равных чисел
return 0;
}
bool check(int x, int y)
{
if(x == y)
{
return true;
}
else
return false;
}