Напишите плз программу срочно надо)

Знания

Информатика

1 ответ:

Katyushau3 года назад

0 0

Какую программу надо???

Читайте также

Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того момента (в первой половине дня), когда час

fofka123 [1]

Var C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
<span>end.

Сам такое недавно делал, только на КуМИР'е)</span>

0 0

4 года назад

220(x+3)-210(x+2)-64(10)=0 определить значение X

Oksana Xena [242]

$220_{x+3}-210_{x+2}-64=0 \\ 2(x+3)^2+2(x+3)-2(x+2)^2-(x+2)=64 \\ 2x^2+12x+18+2x+6-2x^2-8x-8-x-2=64 \\ 5x=50\to x=10 \\ \\ 220_{13}-210_{12}-64=0$

0 0

4 года назад

Для хранения изображения размером 20*20 точек выделено 250 байт памяти какое макс. число цветов допустимо использовать в этом сл

Deemar

20*20/8 (доводим до байтов) = 50;
250 байт / 50 = 5 бит на пиксель.
2^5 = 32 цветов.

0 0

4 года назад

Напишите программу, которая сравнивает количество перестановок при сортировке одного и того же массива разными методами. Проведи

авит

/////////////////////////////

0 0

4 года назад

Сформировать массив а[n][m] из случайно заданных элементов, значения которых находятся на отрезке [-10000; 10000]. Вывести число

АннаКир

Для большей наглядности вместо диапазона [-10000; 10000] взят [-10;10].
begin
var n:=ReadlnInteger('n =');
var m:=ReadlnInteger('m =');
var a:=MatrRandom(n,m,-10,10).Println(5);
var mx:=a.ElementsByRow.Max;
var mn:=a.ElementsByRow.Min;
Println(mx,' ',mn);
var k1:=a.ElementsByRow.Where(x->x=mx).Count;
var k2:=a.ElementsByRow.Where(x->x=mn).Count;
Println(k1,' ',k2);
end.

Пример:
n = 4
m = 7
6 -9 2 -10 -9 -10 -1
-6 -3 0 -8 -9 -6 6
10 9 10 -8 -5 -2 10
1 -6 7 1 7 2 8
10 -10
3 2

0 0

4 года назад