Циклы в Паскале (циклы с пост- и предусловием)

@Oliva999 · Регистрация: 20.01.2014

Требуется напиcать программу, которая запрашивает числа с клавиатуры до тех пор, пока сумма чисел не превысит 25 или введенное число не будет отрицательным.

@volvo · 21.01.2014, 00:36

И куда эти числа складывать? Просто вводить? Вот так (постусловие):

Pascal

var 
  X, s : real;
  
begin
  s := 0;
  repeat
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  until (X < 0) or (s > 25);
  writeln('s = ', s:0:0);
end.

Предусловие:

Pascal

var 
  X, s : real;
  
begin
  s := 0;
  X := 0;
  while (X >= 0) and (s <= 25) do
  begin
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  end;
  writeln('s = ', s:0:0);
end.

@Oliva999 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 13
		1
	Циклы в Паскале (циклы с пост- и предусловием) 20.01.2014, 23:41. Просмотров 1477. Ответов 1 Метки нет (Все метки) Требуется напиcать программу, которая запрашивает числа с клавиатуры до тех пор, пока сумма чисел не превысит 25 или введенное число не будет отрицательным. 0

Опции темы

Циклы в Паскале (циклы с пост- и предусловием)

Решение