П Р О Г Р А М М А
program mlad;
var s,a,b,c,n: integer;
begin
for n:=0 to 999 do
begin
s:=523000+n;
a:= s mod 7;
b:= s mod 8;
c:= s mod 9;
if (a=0) and (b=0) and (c=0) then write (n:5)
end
end.
ПРИМЕР 2: Подсчитать сумму ряда: s=1-2+3-4+5- ... для заданного числа членов.
П Р О Г Р А М М А
program sum;
var i,n:integer; {счетчик и количество слагаемых}
s:real; {сумма ряда}
begin
writeln('Сколько слагаемых ?');
readln(n);
if n<=0 then
writeln('Плохое n')
else begin
s:=0;
for i:=1 to n do
if odd(i) then {проверка четности номера}
s:=s+i
else
s:=s-i;
writeln('s=',s:10:3);
end;
end.
Упражнения:
Вычислить
Вычислить
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
Напечатать в возрастающем порядке все трехзначные числа, сумма цифр которого равна заданному числу n (n=9)
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых все одинаковые цифры.
Определить, является ли заданное число совершенным, т.е. равным сумме всех своих (положительных) делителей, кроме самого этого числа (например, число 6- совершенно: 6=1+2+3).
Дано целое n>2. Напечатать все простые числа из диапазона [2,n].
Вычислить
Вычислить
Вычислить
Достарыңызбен бөлісу: |
