Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Надо сделать программу на паскале, которая вычисляет сумму 8 нечетных чисел вводимых с клавиатуры. Спасибо. Спасибо

Toxmik Профи (823), на голосовании 11 лет назад
Голосование за лучший ответ
Ser res Гуру (3953) 11 лет назад
var
a[1..i] : of ineteger;
i : integer;
s : integer;
for i := 1 to 8 do
begin
readln(a);
end;
fo i := 1 to 8 do
begin
s := s+a;
end;

Нечетность проверять не надо?
Soner MC Профи (556) 11 лет назад
var
x1,x2,x3,x4,x5,x6,x7,x8; real;
writelen ('задайте х1', x2);
writelen ('задайте х2', x2);
writelen ('задайте х3', x3);
writelen ('задайте х4', x4);
writelen ('задайте х5', x5);
writelen ('задайте х6', x6);
writelen ('задайте х7', x7);
writelen ('задайте х8', x8);
x:=x1+x2+x3+x4+x5+x6+x7;
writelen ('сумма равна', x);
end.

вроде так, хотя я слабо помню
Александр Ученик (155) 11 лет назад
var
a,sum:integer;
i:byte;
flag:boolean;
begin
sum:=0;
for i:=1 to 8 do
begin
repeat
readLn (a);
if (a mod 2)=1 then flag:=true else begin writeLn ('ошибка'); flag:=false; end;
until flag=true;
sum:=sum+a;
end;
writeLn (sum);
end.
Похожие вопросы