Предмет: Информатика,
автор: dorvin
Написать программу на Pacal ABC и составить блок-схему этой программы.
Задание: проверить истинность высказывания: "Все цифры данного трехзначного числа различны"
Программа должна выводить либо True либо False. (с помощью типа: boolean)
Зараннее спасибо!
Ответы
Автор ответа:
0
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.
Приложения:

Похожие вопросы
Предмет: Английский язык,
автор: feqfjj
Предмет: Информатика,
автор: karpykov06
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: tusia033
Предмет: Алгебра,
автор: rocknrolla1