Вопрос по информатике:
Написать программу на Pacal ABC и составить блок-схему этой программы.
Задание: проверить истинность высказывания: "Все цифры данного трехзначного числа различны"
Программа должна выводить либо True либо False. (с помощью типа: boolean)
Зараннее спасибо!
- 05.02.2016 06:32
- Информатика
- remove_red_eye 2350
- thumb_up 46
Ответы и объяснения 1
uses crt;
var
x:integer;
y:boolean;
begin
clrscr;
write('Введите трехзначное число'); read(x);
y:=((x mod 10)(x div 100))and
((x div 100)(x mod 100 div 10))and
((x mod 10)(x mod 100 div 10));
write(y);
end.
- 05.02.2016 21:22
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.