B. написать десятки единиц раз 0 имя входного файла стандартный ввод имя выходного файла стандартный вывод ограничение по времени 2 секунды ограничение по памяти 64 мегабайта дано двузначное число. напишите цифру десятков x раз, где x — цифра единиц данного числа. формат входных данных в единственной строке дано положительное двузначное число. формат выходных данных необходимо вывести единственную строку — нужное количество цифр без пробелов. примеры входные данные выходные данные 15 11111 20
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы