Вопрос по информатике:
Ввести 6 чисел. Определить каких больше - четных или нечетных. Надо написать программу на языке паскаль очень прошу срочно.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.10.2015 19:03
- Информатика
- remove_red_eye 18128
- thumb_up 50
Ответы и объяснения 1
var a,b,b1,k,k1:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=a;
while b0 do begin b1:=b mod 10;
if b1 mod 2=0 then k:=k+1 else k1:=k1+1;
b1:=b div 10;
b:=b1;
end;
if k>k1 then
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
else if k
Немного переделать и будет рабочая прога!
- 03.10.2015 10:11
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.