Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n. сделать на паскале )
10-11 класс
|
var m,n,l:integer;
Begin
writeln('m,n');
readln(m,n);
if l mod n=0 and l mod m=0 and l<=(m*n) then
write (l);
readln(l);
end.
вроде так
Другие вопросы из категории
n=5;
var
a: array[1..n] of char;
i,c: integer;
begin
for i:=1 to n do
read (a[i]) ;
readln;
c:=0;
for i:=1 to n div 2 do
if a[i]<>a[n-1-i] then c:=1;
if c=0 then writeln('polindrom')
else writeln('no');
readln;
вывести надпись "Производство нерентабельно".Значения S1,S2ввести с клавиатуры.
Читайте также
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
2.дано натурально число N вычислить куб суммы этого числа
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.
2. Дано десятичное число X=563. Представить его в ячейке.
3. Дано десятичное число X= -62. Представить его в восьмиразрядной ячейке.
4. Дана шестнадцатеричная запись числа X=FB32 в ячейке. Получить исходное число в десятичной системе.