Регистрация
ksyushenkа
07.12.2021 04:08
Информатика
Есть ответ 👍

с паскалем В среде программирования Паскаль написать программу, выполняющую следующие действия:
1)Пользователю предлагается ввести массив целых положительных чисел из 10 элементов(предусмотреть проверку на ввод)
2)Среди всех элементов введённого массива найти общее количество чётных и нечётных чисел
3)Вывести на экран: количество чётных чисел и эти числа, количество нечётных чисел и эти числа

203
208
Посмотреть ответы 1

Ответы на вопрос:

FrenkieMC
FrenkieMC
4,7(22 оценок)
//pascal abc.net v3.0 сборка 1111 var    a,i: integer;   s: string; begin readln(a); str(a,s); //переводим число в строку, вот такой я нехороший for a: =1 to length(s)-1 do   for i: =a+1 to length(s) do   if s[a]=s[i] then     begin;     writeln('yes');     exit;     end; writeln('no'); end.пример ввода: 1224пример вывода: yes

Популярно: Информатика