Сжесткого диска компьютера№1, подключенного к локальной сети со скоростью передачи данных 100 мбит/с - id491327520200512 от кристинка0051 12.05.2020 17:31

Question

Информатика: Сжесткого диска компьютера№1, подключенного к локальной сети со скоростью передачи данных 100 мбит/с на жесткий диск компьютера №2 копируется файл размером 120мбайт, дисковый интерфейс компьютеров имеет максимальную производительность 33мбайт/с.определите время передачи файла без учета служебной информации

кристинка0051 · Accepted Answer

Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then write(a[i]);
end.

2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
i: integer;
w: boolean;
begin
readln(a);
for i := 1 to length(a) do
begin
if ((a[i] = ' ')) then
if (length(b) = 0) then w := true else w:=false;
if (w) then b := b + a[i];
end;
writeln(b);
end.

3)
var s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
end.

MOGZ ответил