fork download
copy 
  1. var
  2.   s:string;
  3.   i,k:integer;
  4. begin
  5.   Write('Введите натуральное число: '); Readln(s);
  6.   k:=0;
  7.   for i:=1 to Length(s) do
  8.     if s[i]='0' then Inc(k);
  9.   Writeln('Количество нулей в записи числа равно ',k)
  10. end.
Success #stdin #stdout 0.01s 5476KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите натуральное число: Количество нулей в записи числа равно 0
https://ideone.com/H2gKmI
language:
Pascal (gpc 20070904)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!