1) Напишите программу которая в последствии натуральных чисел определяет, есть ли в последовательности нечетные числа не оканчивающихся на 1. Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000. Выход: программа должна вывести YES, если в последовательности есть хотя бы одно нечетное число не оканчивающиеся на 1 и NO в противном случае. 2) Напишите программу, которая в последовательности натуральных чисел находимо кол-во нечетных чисел кратных 3. Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000. Выход:Программа должна вывести одно число-кол-во нечётных чисел кратных 3.

Question

Buzabor 10.23.18

Решено

1) Напишите программу которая в последствии натуральных чисел определяет, есть ли в последовательности нечетные числа не оканчивающихся на 1. Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000. Выход: программа должна вывести YES, если в последовательности есть хотя бы одно нечетное число не оканчивающиеся на 1 и NO в противном случае. 2) Напишите программу, которая в последовательности натуральных чисел находимо кол-во нечетных чисел кратных 3. Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000. Выход:Программа должна вывести одно число-кол-во нечётных чисел кратных 3.

149

ОТВЕТЫ

1)
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.

1.
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.

195

Отв. дан 2018-10-24 02:34:33 Арина

Другие вопросы в разделе - Информатика