Представить программку.Задачка 1. Вывести на экран все двузначные числа, которые нацело
Представить программку.
Задачка 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем.
Задача 2. Даны трёхзначные естественные числа n и k (n lt; k). Из чисел от n до k отыскать все, запись которых содержит ровно две схожие числа. Например, числа 266, 661, 767, 776 содержат ровно 2 однообразные числа.
Задачка 3. Дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на исполнения данного условия). Отыскать an и na.
Задать свой вопрос
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 (agt;0) and (bgt;0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неправильные числа!');
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.