ЗАЗ Форум

[Arsen.]

Люди , может среди вас есть программеры хоть чё-нить знающие по Turbo Paskal , а то мне в технаре дали задание написать прогу , ну люди помогите , вот прога :

Записать сумму чётных и нечётных чисел кратных 7 от 1 до 1000

И всё , я ж в долгу не останусь

[Contros]

Что за парные и непарные числа??? Четные ли? Или простые? Что-то новое в математике
Специально в математическом словаре посмотрел - нет таких!

вот тебе прога для чисел кратных семи
не компилировал, по идее должна работать

VAR sum1,sum2,i: word;
BEGIN
sum1:=0;
sum2:=0;
for i:=7 to 1000 do
if (i mod 7)=0 then
sum1:=sum1+i
else
sum2:=sum2+i;
writeln('Сумма кратных 7 чисел равна ',sum1);
writeln('Сумма не кратных 7 чисел равна ',sum2);
readln;
END.

[Arsen.]

[Contros]

VAR x, y, z, sum, count :integer;
BEGIN
x:=10;
y:=11;
z:=13;
count:=0;
sum:=0;
if x mod 2<>0 then begin inc(count); sum:=sum+x; end;
if y mod 2<>0 then begin inc(count); sum:=sum+y; end;
if z mod 2<>0 then begin inc(count); sum:=sum+z; end;
writeln('Сумма нечетных чисел равна ', sum);
writeln('Количество нечетных чисел равно ', count);
END.

для конца учебного года проги слишком простые что-то
такие давно научиться писать надо!
деревьями бы вас помучать

[Arsen.]

[Arsen.]

[Semjonoff]

[Arsen.]

[h@voc]