9. Выбери допустимые имена файлов. * computer??.docx shema.avi shema<.avi computer.docx |*shema|.docx 12. Файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. Определите время в секундах, за которое можно передать через то же самое соединение файл размером 8 Кбайт. * 15. Для хранения растрового изображения размером 64х64 пикселя отвели 2 Кбайта памяти. Каково максимально возможное число цветов в палитре изображения? * 17. В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в байтах в данной кодировке: Но так и быть! Судьбу мою отныне я тебе вручаю. В ответ впишите только цифру * 18. В нумерованном списке для обозначения элемента списка используются * русские буквы арабские цифры латинские буквы картинки значки римские цифры 19.Текст, подготовленный на компьютере имеет информационный объем 4 Кбайта. Информационный вес каждого символа –32 бита. Найдите количество символов в тексте.
Ответы
//Сделал Лугачев Кирилл
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей
begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей
begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Расположите следующие цифры в порядке возрастания 9 бит, 2кб, 16байт, 1байт, 8192бит, 16бит.
Автор: garikman-flesh486
Слабораторной работай (50 ) сама лаба в пдф файле
Автор: Artur-62838
1010111, 10012 выполнить перевод в десятичную
Автор: nalich8524
Установите соответствие *.bmp *.txt
Автор: Aleksei Aleksandrovna649
--- Python 3.8.3 ---
import typing
from typing import Callable
from typing import Any
Primitive = typing.TypeVar('Primitive', int, float, complex, str, bytes, bytearray)
def ReadSeqWhile(predicate: Callable[[Any], bool], SeqType: Primitive = int):
'''
Возвращает последовательность элементов в указанном типе, считываемых с клавиатуры, пока ввод удовлетворяет условию
'''
temp = SeqType(input())
while predicate(temp):
yield temp
temp = SeqType(input())
def main():
InputData = ReadSeqWhile(lambda p: p != '', SeqType = str)
for _ in InputData:
print('text')
if __name__ == "__main__":
main()