Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
режим разметки страницы,режим структуры,режим чтения.режим веб документа-
1) (60-10): 2=25 (мин.) - потратила сегодня
2) 25+10=35 (мин.)
ответ: вчера катя выполнила по за 35 минут.
a-возраст cаши
b– возраст маши
program r;
var a,b: integer;
begin
readln(a,b);
if a=b then writeln («ровесники»)else writeln( «неровесники»)
end.
Популярные вопросы