Да се напише програма, която позволява да се въведат две числа A и B и после отпечатва:
- всички числа от A до B
- сумата на тези числа
- числата от A до B, които са кратни на X
Да се напише програма, която позволява да се въведат две числа A и B и после отпечатва:
[c] за С++ програми [/c]
[pascal] за паскал [/pascal]
П | В | С | Ч | П | С | Н |
---|---|---|---|---|---|---|
« февр. | ||||||
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 |
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.
+Никол
Браво! Страхотен екип!
Вярно! Само че за второто текста би трябвало да е ‘Izvejdane na sumata:’