язык паскаль.
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.
если возникнут вопросы или появится еще подобное для решения, пиши прямо в личку. мне все равно делать нечего )
Поделитесь своими знаниями, ответьте на вопрос:
Какт вычислить значение функции в ms excel f=3^кореньcos(п/с)×[(a+b)c^m/m-n]^2 таблица: a 5, 3 6, 2 23, 13 b 18, 21 16, 32 23, 16
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 бит.