Кокое слово можно составить из всех этих перечислиных букв-з,я,р,ц,е,п,т,е,н,а,и
Максим1236478 [21]
Из данных букв можно составить следующие слова: заяц, птица, заря, пятница, пена, цена, рецепт, ранец, тина, центр, патерн.
А полное слово: Презентация!
Ответ: 1) a<17
if (если) условие then (то) действие выполняется, если условие выполняется (истино) else (иначе) действие выполняется, если условие не выполняется (ложно)
Переводим размер в дюймы. 1 дюйм возмем примерно за 2.5 см.
Тогда
10/2.5=4
15/2.5=6
Если в каждом дюйме 600 пикселей, то:
4*600=2400
6*600=3600
Изображение в пикселях: 2400*3600=8640000 пикселей.
На каждый пиксель по 3 байта и того у нас 25920000 (байт) = 24,72 (мегабайт)
//PascalABC.NET 3.2 сборка 1318
Var
SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];
ArrNotExist:array of char;
count,i:integer;
Num:string;
begin
readln(Num);
for i:=1 to length(Num) do
SeNotExist-=[Num[i]];
foreach var x in SeNotExist do
begin
inc(count);
setlength(ArrNotExist,count);
ArrNotExist[count-1]:=x;
end;
sort(ArrNotExist);
writeln(count);
ArrNotExist.Print(' ');
end.
Пример ввода:
81233214554
Пример вывода:
4
0 6 7 9
var a:array[1..100,1..100]of integer;
i,j,c,b,n,k:integer;
begin
readln(n);
readln(c,b);
for i:=1 to n do for j:=1 to n do a[i,j]:=random(9)+1;
for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); if j=n then writeln; end;
writeln;
for i:=1 to n do
for j:=1 to n do
if (i>n-j+1) or (j<n-i+1) then if (a[i,j]<=c) and (a[i,j]>=b) then inc(k);
writeln(k);
end.
