В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
JuliIs26
JuliIs26
01.05.2020 15:37 •  Информатика

Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности четные числа, не оканчивающиеся на цифру 8. вход: программа получает на вход последовательность натуральных чисел, заканчивающихся нулем. количество чисел не превышает 1000, а сами числа не превышают 30000. напишите 2 варианта: просто и через массив

Показать ответ
Ответ:
kirpol83p01doz
kirpol83p01doz
09.10.2020 10:24

1. Цикл

var a,k:integer;

begin

write('Введите число: ');

readln(a);

while a<>0 do

begin

if(a mod 2 = 0) and (a mod 10 <> 8) then k:=k+1;

write('Введите число: ');

readln(a)

end;

if k > 0 then writeln('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. Массив через цикл

var a,k,i:integer;

p:array [1..1000] of integer;

begin

repeat

write('Введите число: ');

readln(a);

if a<>0 then

begin

i:=i+1;

p[i]:=a

end

until a=0;

for a:=1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 <> 8) then k:=k+1;

if k > 0 then writeln('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

0,0(0 оценок)
Ответ:
annaa021
annaa021
09.10.2020 10:24

javascript:var ч, есть = false; while ((ч = prompt()) > 0) { if (!есть && ч % 2 == 0 && ч % 8 != 0) есть = true; } alert(есть ? "Есть." : "Нету.");


javascript:var м = [], ч; while ((ч = prompt()) > 0) { м.push(ч); } alert(м.filter(function (зн) { return зн % 2 == 0 && зн % 8 != 0; }).length > 0 ? "Есть." : "Нету.");

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота