<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
#include <iostream>
using namespace std;
int main() {
int x;
cin >> x;
int sum = x % 10 + (x / 10) % 10;
if (sum < 10) cout << "YES" << endl;
else cout << "NO" << endl;
system("pause");
}
Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
Вход: CD-DVD, дискеты, сканер, ввод с клавиатуры, интернет, флешка, запись с микрофона
Вывод: (монитор), печать, флешка,
При использовании алфавита из 8 символов для хранения одного символа требуется log(2)8 = 3 бита.
Количество символов в сообщении = 360/3 = 120