1 Гбайт = 1024 Мбайта
1 Мбайт = 1024 Кбайта
1 КилоБайт = 1024 байта = 8192 бит
N = int (input ())
MAS = list (map (int, input().split()))
X = int(input())
answ = 0
for elem in MAS:
if elem == X:
answ += 1
print (answ)
Компьютер - это универсальное программно управляемое устройство для обработки, хранения и передачи информации
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
1)
var a, z, s: integer;
begin
write('<em>Введите число: </em>');
read(z);
a := z;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10
end;
write('<em>Сумма цифр числа</em> ', z, ' = ', s)
end.