Превышает ли 141 сумма элементов, которые больше 17

@kloced · Регистрация: 01.11.2017

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

Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. Выяснить, верно ли, что сумма тех из них, которые больше 17, не превышает 141.

@Hitoku · 17.03.2018, 21:15

Pascal

var x, sum: integer;
begin
  sum := 0;
  read(x);
  while x <> 0 do begin
    if x > 17 then sum := sum + x;
    read(x);
  end;
  writeln(sum <= 141);
end.

@kloced 0 / 0 / 0 Регистрация: 01.11.2017 Сообщений: 6
		1
	Превышает ли 141 сумма элементов, которые больше 17 17.03.2018, 20:21. Показов 1062. Ответов 1 Метки нет (Все метки) Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. Выяснить, верно ли, что сумма тех из них, которые больше 17, не превышает 141. 0

	17.03.2018, 21:15

Превышает ли 141 сумма элементов, которые больше 17

Решение