new_el^.next: =nil; if start=nil thenstart: =new_el; else begin
last: =start;
while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');
del2(start);
new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.
Ответ дал: Гость
1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского
2)все великие писатели в своё время переносили критику,но это делало их только сильнее.
дальше не придумал
(с уважением tipaeinstein)
Ответ дал: Гость
readln (a, b); - вводим значения а в
c: =(a+b) * (b-a); - выполняем уравнение
writeln (c) - выводим результат
в итоге получается
с=(7+8)*(8-7)
c=15
соттветственно будет получен результат 15 на экране.
Популярные вопросы