Предмет: Информатика,
автор: 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
// Внимание! Если программа не работает, обновите версию!
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
Интересные вопросы
Предмет: Русский язык,
автор: nnastyanee
Предмет: Биология,
автор: moids112
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: max198
Предмет: История,
автор: Аноним