Предмет: Информатика,
автор: АмалияГрейс
Ввести натуральное число и определить, верно ли, что в его записи есть
две одинаковые цифры, стоящие рядом.
На Паскале через REPEAT - UNTIL
Ответы
Автор ответа:
0
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);i:=1;
repeatval(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.
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);i:=1;
repeatval(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.
Автор ответа:
0
нужно через repeat и until без массива
Похожие вопросы
Предмет: Литература,
автор: aomirbek
Предмет: Английский язык,
автор: evasaharova58
Предмет: Українська література,
автор: ivchenkosofi7
Предмет: История,
автор: Svkza
Предмет: Обществознание,
автор: abiloff11