Дано n чисел. Найти среди них целые числа

@Yalovick · Регистрация: 07.12.2010

Author24 — интернет-сервис помощи студентам

Вводится N чисел. Определить, сколько среди них целых чисел

@Dekio · 21.12.2010, 11:25

Pascal

1
2
3

for i:=1 to n do
if arr[i] in ['0'..'9'] then
inc(k);

@Yalovick · 28.12.2010, 17:07 **[ТС]**

Pascal

Var
    x,n,c: integer;
Begin
writeln('n=');
readln(n);
writeln('x=');
readln(x);
c:=0;
WHILE x<n do
Begin
if x mod 1 = 0 then
c:=c+1;
end;
readln;
end.

Дано n чисел. Найти среди них целые числа.
Через WHILE.

@Merlin666 · 28.12.2010, 17:15

Pascal

uses crt;
Var
    i,n,c: integer;
    x: real;
Begin
 write('N = ');
 readln(n);
 i:=1;
 
 while i<=n do
 Begin
  write('Enter X: ');
  readln(x);
  if (x=round(x)) then writeln('X = ',x,' - celoe!')
  else writeln('X = ',x,' - drobnoe');
  inc(i);
 end;
readln;
end.

@Yalovick 2 / 2 / 1 Регистрация: 07.12.2010 Сообщений: 61
		1
	Дано n чисел. Найти среди них целые числа 21.12.2010, 11:20. Показов 1813. Ответов 3 Метки нет (Все метки) Вводится N чисел. Определить, сколько среди них целых чисел 0

	28.12.2010, 17:15