Function f(n:integer):boolean;
var m:set of 0..9;
begin
m:=[];
f:=true;
while n>0 do
begin
if (n mod 10) in m then f:=false;
m:=m+[n mod 10];
n:=n div 10;
end;
end;
begin
writeln(f(12321));
end.
Результат:
<span>False</span>
Using System;
// Написать программу, выводящую на экран таблицу квадратов
// четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49...
// Составь блок-схему алгоритма, и напиши программу которая
// выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды
// String repeatedString = new String('*', N); Console.Write (repeatedString);
// Microsoft visual studio c#
namespace NoNamespace {
internal class Program {
private static void Main() {
SquaresOfNumbersDesc();
Stars(20, 10);
Console.ReadLine();
}
private static void SquaresOfNumbersDesc() {
Console.WriteLine();
for (var i = 10; i >= 0; i = i - 2) {
Console.Write("{0} ", i * i);
}
Console.WriteLine();
}
private static void Stars(int n, int start_stars) {
Console.WriteLine();
for (var i = 0; i < n; i++) {
Console.WriteLine(new String('*', start_stars + i));
}
Console.WriteLine();
}
}
}
1 получается 3
2 получается 9
1 получается 11
2 получается 121
1 получается 123
бинго
1.
begin
var a:=ReadlnInteger('a =');
var x:=ArrRandom(a,16,28); x.Println;
x:=x.Select(x->odd(x)?46:x).ToArray;
x.Println;
end.
2.
const a=10;
var x:array[1..a] of integer;
i:integer;
begin
Randomize;
for i:=1 to a do begin
x[i]:=random(13)+16;
write(x[i]:3);
end;
writeln;
for i:=1 to a do
if x[i] mod 2<>0 then x[i]:=46;
for i:=1 to a do write(x[i]:3);
writeln;
end.
Пример:
21 20 27 26 17 18 27 23 26 25
46 20 46 26 46 18 46 46 26 46
<span>V= T ×I × H × 1</span>
V-информационный объём
T-время
I-глубина кодирования
H-частота дискретизации
x1-т.к. звук моно
V=60*16*48*1=46080 бит
1 байт = 8 бит
1 Кбайт = 1024 байта
46080/8=5760 байт
5760/1024=5.625 Кбайт
