Придумай и запиши пары предложений имеющих противоположный смысл

маша ходит в школу каждый день и маша не ходит в школу

Сейчас идет дождь и сейчас солнечно

язык паскаль.

program ski;

const n=5; {длина массива}

var: a: array [1..n] of integer; i,s: integer;

begin

for i: =1 to n do begin

                          writeln('vvedite element massiva nomer ',i);

                          read(a[i]);

                        end;     {тут мы просим пользователя ввести элементы}

s: =0; {s - это указанная тобой сумма. мы ее соответственно обнуляем сначала}

for i: =1 to n do begin

                          if a[i] mod 10=0 then s: =s+a[i];  

                        end;    

 

{ берем каждый элемент массива, и проверяем, делится ли он на 10 без остатка(mod- это остаток от деления на указанное число). если все в порядке, тогда прибавляем число к общей сумме }

 

writeln('summa elementov ravnih nulu ',s);   {пишет ответ}

readln; {чтобы сразу не закрывалась программа}

end.

 

если возникнут вопросы или появится еще подобное для решения, пиши прямо в личку. мне все равно делать нечего )

1.я неуверен на 100% в 1 .если весь текст состоит из к символов, то приалфавитном подходе размер содержащийся в ней информации i определяется по формуле: i=k*x, где х—информационный вес одного символа в используемом алфавите.решение: всего у нас 10 символов: 0,1,2,3,4,5,6,7,8,9.i=k*x, 10*8=80 бит80*80=6400 битответ: 6400 бит.2.пусть в некотором сообщении содержатся сведения о том, что произошло одно из n равновероятных событий. тогда кол-во информации x, заключенное в этом сообщении, и число событий n связаны формулой: 2^х=nрешение: 2^x=82^3=8ответ: 3 бит.