Информа́ция (от лат. informātiō — «разъяснение, представление, понятие о чём-либо», от лат. informare — «придавать вид, форму, обучать; мыслить, воображать») — сведения независимо от формы их представления.
Спасибо
Ответ дал: Гость
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
end.
Ответ дал: Гость
type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;
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.
Популярные вопросы