М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
лосимус
лосимус
06.12.2021 02:47 •  Информатика

Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. постройте данный прямоугольник ( единицу длины показать 5 пикселями)

👇
Ответ:
sanya48481
sanya48481
06.12.2021

uses crt,graphABC;
var x,y,xc,yc:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;

write ('Введите ширину ');
read (x);
write ('Введите длину ');
read (y);

if (x=y) then write ('Это квадрат');
hidecursor;
setpencolor(clAqua);
rectangle(xc-x*5,yc-y*5,xc+x*5,yc+y*5);
floodfill(xc,yc,clAqua);
readkey;

end.

4,4(93 оценок)
Открыть все ответы
Ответ:
1dianalady1
1dianalady1
06.12.2021

1) - 512 Кб 2) - в 3 раза

Объяснение:

НОМЕР 1

1) Высчитаем количество пикселей в изображении.

1024 * 512 = 524288 пикселя.  

2) Узнаем информационный вес каждого пикселя.

  256 = 2^{8}    

3) Найдем информационный вес изображения.

524288 * 8 = 4194304 Бита = 524288 Байта = 512 КилоБайт (Кб)

НОМЕР 2

1. Определим, какой объем информации нес каждый пиксель.  

512 = 2^{9}  (было)

8 = 2^{3}. (стало)

2.  Информационный объем каждого пикселя уменьшился в три раза, значит и объем всего графического файла уменьшился в три раза.

9/3 = 3

 

 

4,6(31 оценок)
Ответ:
Olechka77
Olechka77
06.12.2021

Если нужен паскаль:

1.

var

 a,b:integer;

begin

 readln(a,b);

 writeln(a,'+',b,'=',a+b);

 writeln(a,'*',b,'=',a*b);

end.

2.

var

 n,c,m,h:integer;

begin

 readln(n);

 m:=n div 60;

 c:=n mod 60;

 if m>=60 then

   begin

     h:=m div 60;

     m:=m mod 60;

     if m<>0 then

       if c<>0 then

         write(h,'ч ',m,'мин ',c,'с')

       else

         write(h,'ч ',m,'мин ')

     else

       if c<>0 then

         write(h,'ч ',c,'с')

       else

         write(h,'ч');

   end

     else

       if m<>0 then

         if c<>0 then

           write(m,'мин ',c,'с')

         else

           write(m,'мин ')

       else

         write(c,'с');

end.

4,6(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ