НАПИСАТЬ ПРОГРАММУ: найдите всеНАПИСАТЬ ПРОГРАММУ: найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на
5-9 класс
|
134 дают в остатке 111. С помощью паскаля
вроде так
var i:word;
begin
Writeln('mod 133 = 125:');
for i:=10000 to 99999 do if (i mod 133 = 125) then Write(i,' ');
Writeln; Writeln('mod 134 = 111:');
for i:=10000 to 99999 do if (i mod 134 = 111) then Write(i,' ');
readln();
end.
Другие вопросы из категории
var n, s: integer;
begin
n := 4;
s := 0;
while n <= 13 do
begin
s := s + 15;
n := n + 1
end;
write(s)
end.
Читайте также
двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).
1, 2 или 5. Помогите плииз.
такий чисел нет, то вывести соответствующее сообщение.
1.Д