< >

помогите решить (pascal)

Приложения:

Ответы

Ответ дал: iolandavalerypad353
0

var

 a, b, Count: real;

begin

 Read(a);

 b := a;

 Count := 0;

 while b <> 0 do

 begin

   if b > a then inc(Count);

   Read(b);

 end;

 Write(Count)

end.

Похожие вопросы
Русский язык
2 года назад
5 класс. Помогите пожалуйста
Английский язык
2 года назад
помогите пожалуйста написать письмо санту Клаусу на английском
Английский язык
2 года назад
She usually ____ the piano on Mondays, but today she____ flute. (play, not play) *​
История
2 года назад
10.Какой новый орган появляется в результате реформ Клисфена: а) гелиэя; б) ареопаг; в) коллегия стратегов. 11.Кто вводит вознаграждение для малоимущих граждан за исполнение государственных
Литература
8 лет назад
Напишите о ком нибудь о его (её) поступках делах качествах внешности в сказке о царевне и семи богатырях. Пожалуйста помогите !
Математика
8 лет назад
семья из трех человек едет в санкт-петербург-волгоград можно ехать поездом А можно на своей машине билет на поезд стоит 780 руб. на 1 человека автомобиль расходует 9 литров бензина на 100 километров
Математика
9 лет назад
Кратные каких чисел рациональные проверять при поиске: 1) НОК (16;320) 2) НОК (2;37) 3) НОК (9;12;15) 4) НОК (4;6;10)? Спасибо заранее, помогите!!!
Литература
9 лет назад
раздели сказку морозка