Кратните на M и N, които са в интервала от 1 до 100

Публикувано на 14 март, понеделник от Данаил

Да се отпечатат всички цели числа в интервала от 1 до 100 които са кратни на целите числа M и N. Например всички числа, кратни на 5 и 3.

Публикувано в 9а с етикети . Постоянна връзка.

4 Responses to Кратните на M и N, които са в интервала от 1 до 100

  1. Боряна каза:
    14 март, понеделник в 15:34 
    program kratni;
var
  i, M, N: integer;
begin
  Write('Vavedi M:');
  ReadLn(M);
  Write('Vavedi N:');
  ReadLn(N);
  WriteLn('Kratnite na ', M, ' i ', N, ' sa:');
  for i:= 1 to 100 do
  if (i mod M=0) and (i mod N=0) then WriteLn(i);
  ReadLn;
end.
  2. Alya каза:
    14 март, понеделник в 15:47 
    program Project1;
var
  i, M, N:integer;
begin
  Write('Vavedete M: ');
  ReadLn(M);
  Write('Vavedete N: ');
  ReadLn(N);
  For i:=1 to 100 do
  if (i mod M=0) and (i mod N=0) then WriteLn(i);
  ReadLn;

end.
  3. Lubomira каза:
    14 март, понеделник в 16:03 
      program Project1;
var
M, N, i :integer ;

begin
Write('Wuwedete M:') ;
ReadLn (M) ;
WriteLn ('Wuwedete N: ') ;
ReadLn (N) ;
for i:=1 to 100 do
if (i mod M =0) and ( i mod N =0) then WriteLn (i);
ReadLn ;
end.

Вашият коментар