Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать
5-9 класс
|
цикл с предусловием while <условие> do. Информатика. 8 класс. Паскаль ABC.
var n:integer;var b:array[0..9] of boolean;var f:boolean;begin f := false; readln(n); while n > 0 do begin if b[n mod 10] then begin f := true; break; end else b[n mod 10] := true; n := n div 10; end; if f then writeln('da') else writeln('net');end.
Другие вопросы из категории
7мы должны получить ответ 4+5+7=16, 4*5*7=140, ( 4+5+7)/3=5.333333..
255.255.224.0
и IP-адрес компьютера в сети 206.158.124.67,
то номер компьютера в сети равен:
Читайте также
должно быть простым, потому что такие вещи, как массивы ещё не прошли. Скорее всего здесь будет использоваться while, div, mod.
в паскале напишите программу плиз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
целое число и определить, верно ли, что в нём ровно 1 цифра
«9». (Кумир)
Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10