Var
i, k, n, d: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(d);
{ d:=Random(100); }
if (d mod 10 = 3) then
k := k + 1;
end;
writeln(k);
end.
program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
512=2^i
i=9 бит
v=k*i=400*9=3600 бит/8=450 байт/1024=0,43 Кб
Чем является информация для человека?Каким должно быть сообщение, чтобы оно пополнило ваши знания?Информативны ли для вас следующие сообщения: "Сколько в слове гласных звуков, столько в слове и слогов" и "Термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? Ответ обоснуйте.Какими средствами приёма сигналов из внешнего мира обладает человек?Какие ощущения вы испытывали, купаясь летом в реке?Из чего складывается восприятия? Приведите пример.Каково ваше представление о носителях информации? Опишите их.Что такое понятие? Приведите примеры понятий из повседневной жизни, а также из курсов математики, русского языка, истории, географии и информатики.Приведите 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики.<span>Сделайте умозаключения.</span>