Вывести на экран все кратные числа заданным

@Bolotnik · Регистрация: 16.02.2011

Ребята помогите программу через процедуру записать
Даны натуральные числа А и В. Вывести на экран все кратные им числа.
Найти сумму цифр числа.

Pascal

program chetitre;
var x,y,z,m:integer;
begin
write('x = ');
readln(x);
write('m = ');
 
readln(m);
write('sovmestnie kratnie - ');
for y:=1 to x do
for z:=1 to m do
begin
if (x mod y = 0) and (m mod z = 0) then
if y=z then write(y,' ');
end;
 readln;
writeln;
end.

@Высокий · 06.05.2011, 20:42

Pascal

program chetitre;
uses crt;
var x,m:integer;
procedure cyberforum(x,m: integer);
var y,z: integer;
begin
for y:=1 to x do
for z:=1 to m do
begin
if (x mod y = 0) and (m mod z = 0) then
if y=z then write(y,' ');
end;
end;
begin
write('x = ');
readln(x);
write('m = ');
readln(m);
write('sovmestnie kratnie - ');
cyberforum(x,m);
readkey
end.

Найти сумму цифр числа.

это здесь же? Тогда оно у вас не реализованао.

Опции темы