Найти сумму цифр в Паскале (используя while или repeat)

S=101+103 + ... + 301

Составить программу.

Question

Информатика

Мариетта

28 ноября, 15:02

Найти сумму цифр в Паскале (используя while или repeat)

S=101+103 + ... + 301

Составить программу.

+4

Ответы (1)

Знаете ответ на вопрос?

Павел · Answer 1

(использую repeat)

var i, S:integer;

begin

S:=0; i:=101;

repeat

S:=S+i; i:=i+2;

until i>301;

Writeln (S) ;

end.

(использую While)

var i, S:integer;

begin

S:=0; i:=101;

while i<=301

do begin

S:=S+i; i; =i+2;

end;

Writeln (S) ;

end.

Найти сумму цифр в Паскале (используя while или repeat)S=101+103 + ... + 301Составить программу.

Найти сумму цифр в Паскале (используя while или repeat)

S=101+103 + ... + 301

Составить программу.