1) Напишите программу которая в последствии естественных чисел определяет, есть ли
1) Напишите программку которая в последствии натуральных чисел определяет, есть ли в последовательности нечетные числа не оканчивающихся на 1.
Вход: программа получает на выход кол-во чисел, а потом сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.
Выход: программка обязана вывести YES, если в последовательности есть желая бы одно нечетное число не заканчивающиеся на 1 и NO в неприятном случае.
2) Напишите программку, которая в последовательности натуральных чисел находимо кол-во нечетных чисел кратных 3.
Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превосходит 1000, а сами числа не превосходят 30000.
Выход:Программка обязана вывести одно число-кол-во нечётных чисел кратных 3.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 lt;gt; 1) then c:=c+1
end;
if cgt;0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
var
x, n, i: integer;
flag: boolean;
begin
read(n);
flag := false;
for i := 1 to n do
begin
read(x);
if((x mod 10 lt;gt; 1) and (x mod 2 lt;gt; 0)) then
begin
flag := true;
break;
end;
end;
if(flag) then write('YES')
else write('NO')
end.
2)
var
x, n, i, count: integer;
begin
count := 0;
read(n);
for i := 1 to n do
begin
read(x);
if((x mod 3 = 0) and (x mod 2 lt;gt; 0)) then count := count + 1;
end;
write(count);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.