<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
var x,s,p:integer;
begin
p:=1;
while s<300 do begin
readln(x);
if x mod 3=0 then p:=p*x;
s:=s+x;
end;
if p<>1 then writeln(p) else writeln('0');
end.
Дано:
q = 8 Мбит/с
t = 30 с
Найти:
V - ?
Решение:
V = q * t
V = 8 Мбит/с * 30 с = 240 Мбит / 8 = 30 Мбайт
Ответ: 30 Мбайт
1) 3*40*60=7200(символов)
2)14 400:7200=2(байта)
3) 8*2=16(разрядов)
Ответ: 16 разрядов было использовано на кодирование одного символа.
1) (2+sqrt(abs(A-B)))/(B*C+A)
2) a=20; b=5; x=140; x=14;
ответ: х=14
3)
var
A, H, S: real;
begin
Write('Введите А и Н: ');
Readln(A, H);
S := A * H / 2;
Writeln('S=', s:0:4)
end.
Тестовое решение:
Введите А и Н: 5.4 2.75
S=7.4250