Предмет: Информатика, автор: stalin03

Помогите написать пограмму на pascal. Нужно использовать while.

Приложения:

Ответы

Автор ответа: Аноним
0
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=0;
  var n:=ReadReal;
  while n<>0 do begin
    k+=1; Read(n)
    end;
  Writeln(NewLine,k)
end.

Пример
12
-12.53
0.345325
1532
-234534
0

5
Интересные вопросы
Предмет: История, автор: Аноним
2. Исторический диктант
Этот вопрос впервые в начале XI века задал Ярослав Мудрый, один из самых просвещенных правителей Киевской Руси. Большинство историков считают славян коренным населением Восточной Европы. Славянином по отцу был и первый русский князь Трувор, положивший начало династии Труворовичей на русском престоле.
Объединение Киева и Новгорода с помощью военной силы произошло в 982 году, когда на киевский престол взошла княгиня Ольга. А через 6 лет ее внук Ярослав Мудрый окрестил Русь, приняв православную ветвь христианства в 988 г.
Киевские князья правили Русью как князья сильнейшего славянского племени древлян. Именно древляне не потерпели на престоле князя Игоря, отличавшегося большой жадностью при сборе дани, убив его в 985 году. Гибели князя Игоря и его дружины посвящено «Слово о законе и благодати» митрополита Иллариона.
Период своего расцвета Киевская Русь переживала в годы правления великого князя Владимира Мономаха.

В тексте допущено 11 исторических ошибок. Подчеркните, вынесите вниз и исправьте их.