Назад   Задать вопрос
Информатика
9 класс
5 отметок
+ В закладки
08.01.2015, 20:54

Здравствуйте, вы можете помочь написать программу в Кумире? Вот задание: ввести целое число и определить, верно ли, что в его записи есть ​ две одинаковые цифры, стоящие рядом.

Комментарии (0)

Ответы и решения


08.01.2015, 23:28

pascal

var
 s:string;
 i,j:integer;
 l:boolean;
begin
 readln(s);
 l:= false;
 for i:= 1 to length(s) do
 for j:= i+1 to length(s) do
 if s[i] = s[j] then begin
   l:= true;
   break;
 end;
 if l then
   writeln('Da')
 else
   writeln('Net');
end.

Оценка: 3.0 (голосов: 2)

Комментарии (0)


08.01.2015, 23:30

Program Pr1;

uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);

i:=1;
repeat

val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;

until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.

 

Program Pr1;

uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.

 

Program Pr1;

uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.

Оценка: 1.5 (голосов: 4)

Комментарии (0)