Как я понял язык Паскаль)
Напишите программу для следующих задач
1) в последовательности целых чисел определить количество нечётных чисел, кратных 3. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.
2) В последовательности целых чисел определить их количество и сумму чётных чисел. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности и сумму чётных чисел.
3) В последовательности целых чисел определить их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 256. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256
4) В последовательности натуральных чисел определяет количество всех чётных чисел, кратных 5. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.
5) В последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа, должна вывести одно число: количество всех чётных чисел, кратных 9.
var a,b,c: real;
begin
readln (a,b,c);
If c > a+b then writeln ( 'Такого треугольника не существует');
If a > c+b then writeln ( 'Такого треугольника не существует');
If b> a+c then writeln ( 'Такого треугольника не существует');
If a=b and a=c then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end.
int main () {
const int n = 10;
int massive[n];
int maxElem;
int numberOfMaxElem;
for(int i=0;i<n;++i) {
cin>>massive[i]; // вводим массив из 10 элементов
}
maxElem = massive[0]; // максимальный элемент - первый, присваиваем
for(int i=0;i<n;++i) {
if(massive[i]>maxElem) { // если максимальный элемент меньше
maxElem = massive[i];//чем данный, то данному присваеваем //максимальный
numberOfMaxElem = i; //определяем номер макс элемента
}
}
int multElemBeforeMax;
for(int j=0;j<numberOfMaxElem;++j) {
multElemBeforeMax *= massive[j]; // произведение элементов до максимального
}
int countElemBehindMax;
countElemBehindMax = n-numberOfMaxElem; // кол-во элементов после максимального
cout <<multElemBeforeMax; // вывод на экран
cout <<countElemBehindMax;
return 0;
}