Скорость передачи данных по некоторому каналу связи равна 256000 бит/сек. передача данных через это соединение заняла 64 секунды. определите информационные объём переданных данных в килобайтах.
Для программы обычно необходимы входные значения и соответственно то, что она возвращает. Вот, если она принимает с каждой новой строки (ввел длину одной стороны - Enter) по одному значению. На выходе она отдаст "true" - истина (если хоть две стороны равны) или "false" - ложь.
var a, b, c: integer; begin readln(a); readln(b); readln(c); if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj') else writeln('FALSE - trikutnik ne rivnobedrenyj'); end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.
Если паскаль, лови... Во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. Где x - До какого числа, а n - от какого. Для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. Так же есть min - нахождение минимального. ... А теперь сам код: begin var a := random(30) + 10; var b := random(30) + 10; writeln('a:' + a); writeln('b:' + b); writeln(max(a,b)); end. ... Если не сложно нажми " " ;)
2000 кБайт
Объяснение:
передача данных заняла 64 секунды, а за одну секунду передается 256 000 бит, значит всего было передано бит:
256 000 * 64 = 16 384 000 бит
в одном байте 8 бит, значит
16 384 000 / 8 = 2 048 000 байт
в одном килобайте 1024 байта, значит
2 048 000 / 1024 = 2000 килобайт (кБайт)