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

@azxuligan · Регистрация: 07.06.2013

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

Заранее спасибо!!

@Adpecke · 11.06.2013, 11:54

Pascal

uses crt;
var sum,x,i:real;
begin
 clrscr;
 sum:=0;
 i:=0;
 repeat
  Write('Введите число:');
  ReadLn(x);
  sum:=sum+x;
  inc(i);
 until sum>100;
 WriteLn('Sum: ',sum:2:4,' Было введено; ',i:2:0,' чисел ');
 ReadKey;
end.

@CodeR · 11.06.2013, 11:57

Pascal

Repeat
 write('Число = ');
 readln(m);
 inc(k);
 s:=s+m;
Until s>100;
writeln(k);

Добавлено через 44 секунды
Adpecke, убери "=",надо же когда превысит 100

@azxuligan · 13.06.2013, 06:45 **[ТС]**

там где inc(i); ему эта строка не нравится типа ошибка

@Cyborg Drone · 13.06.2013, 08:11

azxuligan, ну замените тогда

Pascal

inc(i);

на

Pascal

1	i := i + 1;

@azxuligan 0 / 0 / 2 Регистрация: 07.06.2013 Сообщений: 52
		1
	С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100 11.06.2013, 11:14. Показов 12601. Ответов 4 Метки нет (Все метки) Заранее спасибо!! 0

@azxuligan 0 / 0 / 2 Регистрация: 07.06.2013 Сообщений: 52
	13.06.2013, 06:45 [ТС]	4
	там где inc(i); ему эта строка не нравится типа ошибка 0

	13.06.2013, 08:11

Опции темы