Предмет: Информатика,
автор: FILVOLGI
дано одно число. определить, двузначное ли оно
Входные данные: во входном потоке в первой строке задано целое число А(0
Ответы
Автор ответа:
0
program pask;
var
a, count: integer;
begin
count:=0;read(a);
while a>0 dobegincount:=count+1;a:= a div 10;end;
if count = 2 then write('Это двузначное число')else write('Это не двузначное число');end.
var
a, count: integer;
begin
count:=0;read(a);
while a>0 dobegincount:=count+1;a:= a div 10;end;
if count = 2 then write('Это двузначное число')else write('Это не двузначное число');end.
Автор ответа:
0
program pask;
var
a, count: integer;
begin
count:=0;
read(a);
while a>0 do
begin
count:=count+1;
a:= a div 10;
end;
if count = 2 then write('Это двузначное число')
else write('Это не двузначное число');
end.
var
a, count: integer;
begin
count:=0;
read(a);
while a>0 do
begin
count:=count+1;
a:= a div 10;
end;
if count = 2 then write('Это двузначное число')
else write('Это не двузначное число');
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: tairtugelbay2000
Предмет: Українська мова,
автор: Аноним
Предмет: Математика,
автор: cuvenzun
Предмет: Обществознание,
автор: Иван199991