Вопрос по информатике:
Представить программу.
Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем.
Задача 2. Даны трёхзначные натуральные числа n и k (n < k). Из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. Например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры.
Задача 3. Дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на выполнения данного условия). Найти an и na.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.06.2016 07:09
- Информатика
- remove_red_eye 14129
- thumb_up 26
Ответы и объяснения 1
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
- 05.06.2016 21:36
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.