Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 90 точек и высотой 600 точек?
271
343
Ответы на вопрос:
ресми несие беру жоғары білім алудағы негізгі жаңалықтар соңғы жаңалықтар меншікті жаңалықтар меншікті жаңалықтар меншікті жаңалықтар
Объяснение:
так че и Назар аудару керек екендігін атап өткен болатын күні сағат бойы осы ұлы отан соғысының ардагерлеріне құрмет
//pascal abc.net 3.1 сборка 1256 type ukreco=^reco; reco=record int: integer; next: ukreco; end; const n=4; var head,li,kar,karsub,sub: ukreco; i,k: integer; begin randomize; readln(k); k: =k-1; new(head); li: =head; li^.int: =random(10); for i: =2 to n do begin new(li^.next); li: =li^.next; li^.int: =random(10); end; li^.next: =nil; writeln('original list: '); kar: =head; while kar< > nil do begin writeln(kar^.int); kar: =kar^.next; end; kar: =head; i: =0; if k=0 then head: =head^.next else while kar< > nil do begin inc(i); if i=k then begin karsub: =kar^.next; karsub: =karsub^.next; kar^.next: =karsub; break; end; kar: =kar^.next; end; writeln('modified list: '); kar: =head; while kar< > nil do begin writeln(kar^.int); kar: =kar^.next; end; end. пример ввода: 2 пример вывода: original list: 4 1 0 9 modified list: 4 0 9
Популярно: Информатика
-
Птичка0420.06.2021 02:22
-
соня158304.02.2020 04:05
-
СабинаЛис08.10.2021 06:54
-
oleca314.12.2022 01:51
-
krasotka50505014.10.2020 09:22
-
Nikbatyr02.03.2021 04:09
-
AnnaNazar0701.02.2021 00:31
-
ubfhbc29.05.2021 13:59
-
alisaislamova227.02.2023 05:39
-
АРИНОЧКА111111111120.07.2020 11:06