For, While, Repeat

@zakery · Регистрация: 12.04.2010

Author24 — интернет-сервис помощи студентам

Помогите решить лабу по паскалю пожалуйста. Буду очень признателен.

Даны целые числа n и K[n]. Получить сумму S последних цифр чисел K[n]. Решить тремя операторами - For, While, Repeat, отдельно.

Зараннее благодарю и надеюсь на вашу помощь.

@Mиxaил · 22.05.2010, 23:56

это с for:

Pascal

const N=5;
var a:array[1..N] of integer;
    i,sum:integer;
    S:byte;
begin
for i:=1 to N do
  read(a[i]);
repeat
  writeln('s -> ');
  readln(S);
until S<N;
sum:=0;
for i:=1 to N do
  if i>=S then
    sum:=sum+a[i];
writeln(sum);
readln;
end.

Добавлено через 5 минут
с while:

Pascal

const N=5;
var a:array[1..N] of integer;
    i,sum:integer;
    S:byte;
begin
for i:=1 to N do
  read(a[i]);
repeat
  write('s -> ');
  readln(S);
until S<N;
sum:=0;
i:=0;
while i<N do
  begin
    inc(i);
    if i>=S then
      sum:=sum+a[i];
  end;
writeln(sum);
readln;
end.

Добавлено через 4 минуты
с repeat:

Pascal

const N=5;
var a:array[1..N] of integer;
    i,sum:integer;
    S:byte;
begin
for i:=1 to N do
  read(a[i]);
repeat
  write('s -> ');
  readln(S);
until S<N;
sum:=0;
i:=0;
repeat
  inc(i);
  if i>=S then
    sum:=sum+a[i];
until i>=N;
writeln(sum);
readln;
end.

@zakery · 23.05.2010, 14:57 **[ТС]**

Спасибо огромное!!

@zakery 0 / 0 / 0 Регистрация: 12.04.2010 Сообщений: 6
		1
	For, While, Repeat 22.05.2010, 23:30. Показов 1171. Ответов 2 Метки нет (Все метки) Помогите решить лабу по паскалю пожалуйста. Буду очень признателен. Даны целые числа n и K[n]. Получить сумму S последних цифр чисел K[n]. Решить тремя операторами - For, While, Repeat, отдельно. Зараннее благодарю и надеюсь на вашу помощь. 0

@zakery 0 / 0 / 0 Регистрация: 12.04.2010 Сообщений: 6
	23.05.2010, 14:57 [ТС]	3
	Спасибо огромное!! 0

For, While, Repeat

Решение