Кому порешать задачи - пишите сюда

[EpsOn]

Большое СПАСИБО, Auris !!!

 

[Bara]

в задаче 8 ошыбок,недоделаная

 

[[eXtRiMe]]

помогите, простая задача, чето туплю. Как запрограммировать в Делфи массив возрастающим и спадающим для произвольных чисел?

 

[Lincoln]

Ребята спасайте:
1.Вичислить суму и произведение всех положительних нечетных целих чисел до 15
2.Вичислить суму положительных целих больших 20 меньших 100 и кратних 3
3.Вывести на екран таблицу перевода t (температуры) по шкале 'С в градуси 'F для значений от 15'С до 30'С с шагом 1'C -перевод по формуле F=1.8*C+32-
На Turbo Pascal хотя бы какую небудь)

 

[Пух]

Ребята спасайте:
1.Вичислить суму и произведение всех положительних нечетных целих чисел до 15
2.Вичислить суму положительных целих больших 20 меньших 100 и кратних 3
3.Вывести на екран таблицу перевода t (температуры) по шкале 'С в градуси 'F для значений от 15'С до 30'С с шагом 1'C -перевод по формуле F=1.8*C+32-
На Turbo Pascal хотя бы какую небудь)

на этом форуме уже есть все эти задачи (2 и 3 точно, для 1й другие числа были). Ищи...
келбасу привет :lol:

 

[Lincoln]

Хыыы а де не могу найти если знаеш кинь ссылочку плз! привет передам!! )))))

 

[Маришенька]

1.
-----------
sum:=0;
num:=1;
pr:=1;
while num<=15 do
begin
sum:=sum+num;
pr:=pr*num;
num:num+2;
end;
writeln('Сума=',sum,'Добуток=',pr);
end.

2.
-------
sum:=0
for n:=20 to 100 do
begin
if i mod 3 = 0
then
sum:=sum+n;
end;
writeln('Сума=',sum);
end.

 

[|APOSTOL|]

Відповідь: Re: Кому порешать задачи - пишите сюда

1.
-----------
sum:=0;
num:=1;
pr:=1;
while num<=15 do
begin
sum:=sum+num;
pr:=pr*num;
num:num+2;
end;
writeln('Сума=',sum,'Добуток=',pr);
end.

2.
-------
sum:=0
for n:=20 to 100 do
begin
if i mod 3 = 0
then
sum:=sum+n;
end;
writeln('Сума=',sum);
end.

Спасибо болшое,сидел искал эти задачи.

 

[Пух]

3я что-то в таком духе

uses crt;
var f:real;
    c:integer;
begin
clrscr;
c:=15;
while c<=30 do
begin
f:=1.8*c+32;
gotoxy(1,c-14);
write('c=',c);
gotoxy(10,c-14);
write('f=',f:4:2);
inc(c);
end;
readkey;
end.

не проверял, так что могут быть опечатки

 

[Lincoln]

Дякую,а то сидів ломав голову і нічого не зрозумів =)