Регистрация
nikitafonarik05
12.10.2020 05:38
Информатика
Есть ответ 👍

Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. на паскале через repeat - until

267
311
Посмотреть ответы 2

Ответы на вопрос:

224678
224678
4,5(89 оценок)
Program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; 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.
maksus1608
maksus1608
4,4(67 оценок)

ответ: троян

объяснение:

Популярно: Информатика