Var
i,k,n1,n2:integer;
begin
n1:=0; n2:=0;
Write('Введите 5 натуральных чисел: ');
for i:=1 to 5 do begin
Read(k);
if k mod 2<>0 then Inc(n1);
if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
end;
Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.
<u>Пример</u>
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2
Смотря какой расклад клавиатуры,у меня например нет кнопки Lon
Надо было написать бы еще среду программирования. Пишу на Qbasic
Программа на C++:
#include <iostream>
using namespace std;
int main()
{
int n, res;
cin<<n;
int a[n];
res=0;
for (int i=0; i<n; i++;)
{
if (a[i]%10==2 and a[i]>res)
res=a[i];
}
cout<<res;
}