11.12.2019, 16:46 [+3 UTC]
в нашей команде: 4 058 чел. | участники онлайн: 6 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
11.12.2019, 14:48
Всего: 151223

Последний ответ:
11.12.2019, 14:56
Всего: 259556

Последняя рассылка:
11.12.2019, 16:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
10.02.2012, 16:53 »
Алексей Гладенюк
Спасибо за ответ! К сожалению, про страховку Вы не упомянули, плюс момент с переходом права собственности указали неточно, как подсказывают другие эксперты. Поэтому "четыре". Спасибо! [вопрос № 185396, ответ № 269915]
23.06.2010, 16:10 »
Бельянинов Е.А.
...есть (или была) такая радиопередача «Как это по-русски?..». Давно, около пяти лет назад случайно услышал в этой передаче (и я это запомнил очень хорошо) именно – «вИшневый» (рассказывала филолог, преподаватель МГУ), сам удивился, хотя и «просится» ударная «Ё» в это слово. Что ж, придётся списать сие на «могущество» русского языка... Огромное спасибо за ссылку, уважаемый Anjali: всё-таки с авторитетом Розенталя спорить «трудно», да во многом и мои убеждения нашли свои подтверждения… [[url=http://rfpro....
13.05.2010, 13:04 »
Мироненко Николай Николаевич
Спасибо Вам большое!!! Странно, полностью изучил книжку по разметке из серии 10 мин. на урок, там и справочник по тегам, свойствам и их значениям есть, но о этом свойстве там ничего нет. А какие значения для этого свойства еще доступны? [вопрос № 178358, ответ № 261367]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 676
puporev
Статус: Профессионал
Рейтинг: 460
Gluck
Статус: 10-й класс
Рейтинг: 459

Перейти к консультации №:
 

Консультация онлайн # 197098
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: JonMoxley (Посетитель)
Отправлена: 14.11.2019, 16:00
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом:написать программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. признаком конца последовательности является число 0. в pascal

Состояние: Консультация закрыта

Здравствуйте, JonMoxley!

Смотрите код:

Код (Pascal) :: выделить код
var
  a,b:real;
  c:integer;
begin
  a:=0;
  c:=0;
  repeat
    write('enter number:=');
    readln(b);
    if b<>0 then inc(c);
    a:=a+b;
  until b=0;
  writeln('result:=',a/c);
end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 17.11.2019, 02:39

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.15609 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35