a,b,c,min: integer; begin writeln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); end.
Ответ дал: Гость
program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
Популярные вопросы