1) сколько файлов объёмом по 9 кб каждый успеет передать пользователь за 12 секунд, если за 6 секунд - id525028520200402 от nadya8903 02.04.2020 07:09

Question

Информатика: 1) сколько файлов объёмом по 9 кб каждый успеет передать пользователь за 12 секунд, если за 6 секунд он смог передать 3 таких файла? скорость передачи данных считать неизменной. 2) перевидите число 1110000 из двоичной системы счисления в десятичную. в ответе укажите одно десятичное число(без указание системы счисления).

nadya8903 · Accepted Answer

//PascalABC.Net function DelWord(s:string):string; var   i,n:integer; begin   n:=length(s);   i:=n;   repeat     if i =1 then Dec(i);   until s[i]= ;   Delete(s,i+1,n-i);   DelWord:=s end; var   st:string; begin   Write( Введите строку: ); Readln(st);   Writeln( Результат: ,DelWord(st)) end. Тестовое решение: Введите строку: А роза упала на лапу Азора Результат: А роза упала на лапу //PascalABC.Net function DescDigits(s:string):boolean; var   desc:boolean;   i,n:integer;   c1,c2:char; begin   n:=length(s);...

MOGZ ответил