1. Информатика
  2. Склавиатуры вводятся числа

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

АкоLove АкоLove    3   03.09.2019 06:00    13

Ответы
Рената1701 Рената1701  26.08.2020 14:09
Var a,k,sum:integer;
begin
  while (sum < 100) do
  begin
     readln(a);
     k:=k+1;
     sum:=sum+a;
  end;
  writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vitalesss vitalesss  29.09.2020 11:26
Сделаю самым лучшим ответом хелп ми ​...
kiznijmaksimowbvhl kiznijmaksimowbvhl  29.09.2020 11:29
Как связана информатика с физкультурой?​...
vualada vualada  10.05.2019 17:55
На контрольной работе по ученикам 9 класса было предложено 10 примеров. неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. сколько...
Vikusya18101 Vikusya18101  15.05.2020 08:24
Опишите модель решения поставленной задачи, соблюдая следующие пункты: a) Входные данные программы b) Выходные данные программы c) Цель проектирования программы d) Назначение...
TvoePolusladkoe TvoePolusladkoe  15.05.2020 08:25
Присвоить целой переменной f третью от конца цифру в записи положительного целого числа k (например, если k=130985, то f=9). в...
Nurbibi12 Nurbibi12  15.05.2020 08:26
Реши пример: x=83+529/66+26.Дана программа на языке программирования Паскаль для решения данного примера. Заполни пропуски.varx:real;beginxgc:= Выбрать:1).83+529∗662).83+529/66+263)....
12346Djigd 12346Djigd  15.05.2020 08:26
Анимация құрудың неше жолы бар және әдіс түрлерін белгілеп көрсет...
veronika1217 veronika1217  15.05.2020 08:26
1. Разработать таблицу, содержащую следующие сведения о восьми абитуриентах университета: фамилия, оценка за экзамен по математике, оценка за экзамен по физике, сумма...
JoraUai0 JoraUai0  15.05.2020 08:28
Что нужно сделать для признания и осуществления авторских прав на компьютерную игру? Почему важно своевременно заявить о своих авторских правах? ​...
natacha18 natacha18  15.05.2020 08:28
По данным двум натуральным числам A и B (A≤B) выведите все чётные числа на отрезке от A до B. В этой задаче нельзя использовать инструкцию if. Входные данные Вводятся...

Популярные вопросы