(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 18 c
v = 256000 бит/с
I - ?
Решение:
бит
4608000.0 бит = 576000.0 байт = 562.5 Кбайт
Var a,b,c,d: real;
<span>begin
</span><span> write('числа a,b,c,d через пробел: ');
</span><span> readln(a,b,c,d);
</span><span> writeln('минимум: ',min(a,min(b,min(c,d))));
</span><span> writeln('максимум: ',max(a,max(b,max(c,d))));
</span><span>end.
</span><span>
</span>
Системы программирования предназначены для создания (написания) программ, с ними работают разные программисты, для создания своих собственных программ.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.