Число вводится с клавиатуры, определить является ли оно двузначным.

@Dimka1judo · Регистрация: 16.01.2012

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

BuPy7 · 04.04.2012, 11:16

Pascal

var n,k:integer;
    s:string;
begin
  writeln('vvedite 4islo');
  readln(n);
  str(n:0,s);
  k:=length(s);
    if k=2 then writeln('dvuzna4noe')
      else writeln('nedvuzna4noe');
  readln;
end.

@Gelia · 04.04.2012, 11:16

Воспользуемся функцией mod - выделяет целую часть от деления

Pascal

1 2	if A mod 100 = 0 then write('двузначное число') else write('не двузначное число');

@Dimka1judo 6 / 6 / 5 Регистрация: 16.01.2012 Сообщений: 245
		1
	Число вводится с клавиатуры, определить является ли оно двузначным. 04.04.2012, 08:34. Показов 6935. Ответов 2 Метки нет (Все метки) Число вводится с клавиатуры, определить является ли оно двузначным. 0

	04.04.2012, 11:16

Число вводится с клавиатуры, определить является ли оно двузначным.

Решение