Turbo Pascal

[Cris]

Хелпп..

1. Скласти программу яка б дозволяла знаходити суму чисел кратних 3-м в діапозоні від 1 до N;

2. Cкласти программу яка б дозволяла обчислювати добуток чисел від 1 до N;

3. Cкласти программу яка б дозволяла знаходити всіх чисел в діапозоні вид 1 до N;

Буду благодарен!

пишу сразу на форуме - могут быть ошибки

1. я написал самый примитивный способ

program wlapa;
var i,n,sum:longint;
begin
write('vvedite N:  ');
readln(n);
for i:=1 to n do
if (i mod 3)=0
 then sum:=sum+i;
writeln(sum);
end.

2-й способ

program wlapa2;
var i,n,sum:longint;
begin
write('vvedite N:  ');
readln(n);
i=0;
while i<=n do
begin
sum:=sum+i;
i:=i+3;
end; 
writeln(sum);
end.

 

[Cris]

Хелпп..

1. Скласти программу яка б дозволяла знаходити суму чисел кратних 3-м в діапозоні від 1 до N;

2. Cкласти программу яка б дозволяла обчислювати добуток чисел від 1 до N;

3. Cкласти программу яка б дозволяла знаходити всіх чисел в діапозоні вид 1 до N;

Буду благодарен!

2.

program ppc1;
var i,dobytok,:longint;
begin
write('vvedite N:  ');
readln(n);
dobytok:=1;
for i:=1 to n do
dobytok:=dobytok*i;
writeln(dobytok);
end.

 

[Cris]

Хелпп..

1. Скласти программу яка б дозволяла знаходити суму чисел кратних 3-м в діапозоні від 1 до N;

2. Cкласти программу яка б дозволяла обчислювати добуток чисел від 1 до N;

3. Cкласти программу яка б дозволяла знаходити всіх чисел в діапозоні вид 1 до N;

Буду благодарен!

а третюю я непонял как это знаходити все числа в диапахоне 1..Н
вывести чтоли числа от 1 до Н?

тут явно слово пропушено - ...знаходити тут нехватает всіх...

 

[Пух]

пишу сразу на форуме - могут быть ошибки

1. я написал самый примитивный способ

program wlapa;
var i,n,sum:longint;
begin
write('vvedite N:  ');
readln(n);
for i:=1 to n do
if (i mod 3)=0
 then sum:=sum+i;
writeln(sum);
end.

2-й способ

program wlapa2;
var i,n,sum:longint;
begin
write('vvedite N:  ');
readln(n);
i=0;
while i<=n do
begin
sum:=sum+i;
i:=i+3;
end; 
writeln(sum);
end.

ИМХО, первый более правильный

 

[Cris]

ИМХО, первый более правильный

ну во втором способе я сразу считаю кратные трем:
0+3+6+9+12.....
а в первом я прохожу все числа с проверкой
можно еше както зделать через формулу)) тока выводить надо

 

[Пух]

ну во втором способе я сразу считаю кратные трем:
0+3+6+9+12.....
а в первом я прохожу все числа с проверкой
можно еше както зделать через формулу)) тока выводить надо

первый вариант легче и правильней переделать для диапазона [m..n] =)

 

[DrapokyR]

спасибо и за это!

 

[Cris]

первый вариант легче и правильней переделать для диапазона [m..n] =)

ну это да)) но в задаче несказано что для m..n))

 

[xZ_]

первый вариант легче и правильней переделать для диапазона [m..n] =)

я бы не сказал что первый правильнее.. легче - да.. но вот второй в 3 раза быстрее, по этому как раз лучше второй, моё мнение.. а в идеале конечно вывести формулу и считать быстрее (обычная арифметическая прогрессия)

 

[Cris]

я бы не сказал что первый правильнее.. легче - да.. но вот второй в 3 раза быстрее, по этому как раз лучше второй, моё мнение.. а в идеале конечно вывести формулу и считать быстрее (обычная арифметическая прогрессия)

кстати да))) количество елементов - N div 3