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

Публикувано на 01 април, сряда от Данаил

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

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

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

  1. Евгения Георгиева каза:
    01 април, сряда в 10:24

    program project1;
    Var
    i,A,B, suma, x:integer;
    begin
    Write ( ‘Vavedete chislo za A’);
    ReadLn (A);
    WriteLn ( ‘Vavedete chislo za B’);
    ReadLn (B);
    WriteLn ( ‘Vavedete chislo za X’);
    ReadLn (X);
    for i:= A to B do WriteLn (i);
    suma:=0 ;
    for i:=A to B do
    suma:=suma + i;
    WriteLn (suma);
    for i:=A to B do
    if i mod x = 0 then WriteLn (i);
    ReadLn;
    end.

  2. Simona Dimitrowa каза:
    20 април, понеделник в 07:57 
    program Project1;

var
i,a ,b, suma, x:integer;
begin
Write ( 'Vavedete chislo za a: ');
ReadLn (a);
WriteLn ( 'Vavedete chislo za b: ');
ReadLn (b);
WriteLn ( 'Vavedete chislo za x: ');
ReadLn (x);
for i:= a to b do WriteLn (i);
suma:=0 ;
for i:=a to b do
suma:=suma + i;
WriteLn (suma);
for i:=a to b do
if i mod x = 0 then WriteLn (i);
ReadLn;
end.

    +Никол

  3. krisi3005 каза:
    20 април, понеделник в 08:10 
    program Project1;
var
  i,A,B,suma,x:integer ;
begin
Write('Vavedete chislo za  A : ');
ReadLn (A);
Write('Vavevedete chislo za  B :') ;
ReadLn(B) ;
Write('Vavadete chislo za : x ') ;
ReadLn (x);
Write('Izvejdane na vsichki chisla : ') ;
for i:= A to B do
  WriteLn (i);
suma:=0 ;
 Write('Izvejdane na vsichki sumi : ') ;
for i:= A to B  do
  suma:=suma+i ;
Write(suma);
 Write('Izvejdane na vsichki kratni :') ;
for i:=A to B do
  if i mod x = 0 then WriteLn (i);
ReadLn;
end.

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