сервис вопросов и ответовзадача в паскале: среди четырехзначных чисел выбрать те, у которых цифры попарно различны
5-9 класс|
|
дьявол765353563
18 февр. 2017 г., 9:11:23 (7 лет назад)
Lyutsiyaakhmet
18 февр. 2017 г., 10:25:41 (7 лет назад)
var
i, n, a: integer;
c1, c2, c3, c4: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4)
then
writeln('цифры попарно различны')
else
writeln('не все цифры попарно различны');
end;
end.
Ответить
Другие вопросы из категории
Тест по теме Команда ветвления Вопрос 1. Какие ключевые слова не используются для записи команды ветвления? else if
and
then
Вопрос 2.
Как выглядит полная форма команды ветвления?
if ... else ...
if ... then ... else ...
if ... then ...
нет правильного ответа
Вопрос 3.
Как выглядит сокращённая форма команды ветвления?
if ... else ...
if ... then ... else ...
if ... then ...
нет правильного ответа
Вопрос 4.
Какая из команд записана неправильно?
if a>0 then a:=0;
if a:=0 then a>0;
if 2*2<>5 then writeln(2*2);
нет правильного ответа
Вопрос 5.
Какая из команд записана правильно?
if (x<0) and (y<0) then y*x>0;
if x=0 and a>0 then b:=0 else b:=x;
if x=0 and a>0 then b:=0; else b:=x;
нет правильного ответа
Вопрос 6.
Какая из команд записана правильно?
if (x=0) and (a>0) then begin b:=0;c:=x; end; else b:=x;
if (x=0) and (a>0) then b:=0;c:=x; else b:=x;
if (x=0) and (a>0) then begin b:=0;c:=x else b:=x; end;
if (x=0) and (a>0) then begin b:=0;c:=x; end else b:=x;
Вопрос 7.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=6;
if a mod 2 = 0 then write(a+2) else write(a-2);
1)4
2) 8
3) 12
4)6
Вопрос 8.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=12;
if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;
write(a-b);
0
8
12
10
Вопрос 9.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=22;
if a*a >= 225 then a:=a mod 6
write(22-a);
1 19
2 0
3 18
4 нет правильного ответа
Вопрос 10.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9
a:=5; b:=8; c:=11;
if (a>b) ... (b
1 and
2 or
3 not
4 не знаю
Вопрос 11.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3
a:=15; b:=7; c:=4;
if (a>b) ... (b
1 or
2 not
3 and
4 не знаю
Вопрос 12.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5
a:=1; b:=8; c:=6;
if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;
1 not
2 or
3 and
4 не знаю
1) Сколкьо чисел в массиве А30 находится в интервале от 0 до 6.
2) В массиве А30 заменить все отрицательные числа на 5,а остальные на 2.
Написать программой..
как изменяются числа в каждом ряду и продолжите каждый ряд дописав еще по 4 числа.
16 12 15 11 14 10
16 17 18 26 27 28 36 37 38
27 34 41 48
56 48 40
112 122 132 212 222 232
Читайте также
в Паскале 1. Среди четырёхзначных чисел выбрать те, у которых все четыре цифры различны.
2. Дано шестизначное число n. Определить сколько раз в нём повторяется минимальная цифра.
В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
1)среди 15 чисел найдите сумму всех положительных чисел
2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными
Вы находитесь на странице вопроса "задача в паскале: среди четырехзначных чисел выбрать те, у которых цифры попарно различны", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.