Числата от A до B

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

Да се напише програма, която позволява да се въведат две числа A и B и после отпечатва:

  1.  всички числа от A до B
  2. числата от A до B, които са кратни на X
Публикувано в 10б с етикети . Постоянна връзка.

4 Responses to Числата от A до B

  1. Mladen96 каза:
    07 април, понеделник в 17:14 
    program Project1;

var
i: integer;
A: integer;
B: integer;

begin
WriteLn ('Vavedete A i B):');
ReadLn (A) ;
ReadLn (B) ;
For i:= A to B do WriteLn (i);
ReadLn;
end.
  2. Mladen96 каза:
    07 април, понеделник в 17:18 
    program Project1;

var
i: integer;
A: integer;
B: integer;
x: integer;
begin
WriteLn ('Vavedete A i B):');
ReadLn (A) ;
ReadLn (B) ;
WriteLn ('Vavedete x):');
ReadLn (x) ;
 for i:=A to B do
if i mod x = 0 then WriteLn(i);
ReadLn;
end.
  3. Elitsa каза:
    07 април, понеделник в 17:24

    program Project1;
    var
    i: integer;
    b: integer;
    a: integer;
    begin
    Write ( ‘ Vavedete a i b ‘ ) ;
    ReadLn ( a, b );
    for i:= a to b do WriteLn(i);
    ReadLn;

    end.

  4. teriinkaa17 каза:
    07 април, понеделник в 17:24 
    
program Project1;
var
a: integer ;
b: integer ;
i: integer ;

begin
Write ('Vavedete a i b ')  ;
ReadLn (a, b );
for i:=a to b do WriteLn(i)  ;
ReadLn ;

end.

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