Дано:
Скорость1=1536 бит/c
Скорость2=768 бит/c
Размер файла1= 100 Кбайт=102400байт=819200 бит
Размер файла2= ?
Решение:
819200 / 1536 = 533,3 сек - скорость передачи 100 Кбайт данных по скорости1
533,3 * 768 = 409600 бит / 8 = 51200 байт / 1024 = 50 Кбайт - вес файла 2
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.
40*1024=40960байт,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Ответ: 22121
Пояснение:
1) 1*4 = 4.
2) 4*4 = 16
3) 16-3 = 13.
4) 13*4 = 52.
5) 52-3 = 49.
Var a, b: integer;
begin
read(a); read(b);
if (a > b) then
writeln('Первое число больше второго')
else
begin
if (a < b) then
writeln('Второе число больше первого')
else
writeln('Числа равны');
end;
end.