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

хотя бы на несколько заданий по информатике.
1-на сколько килобайт превышает информационный объём изображения размером 500х500 пикселей,кол-во цветов в палитре 256,если допустимый объём для публикации в интернет равен 200 килобайт

2-информационный объёме изображения равен 6Кбайт .По вертикали 16 пикселей,кол-во цветов в палитре - 8.На сколько пикселей превышает изображение по горизонтали(допустим размер по горизонтали 1000 пикселей)

3-определите сколько фотографий поместиться в носителе в 256 мегабайт,если размер изображения равен 1024х768 пикселей.Цвет одного пикселя кодируется 3 байтами .

4-Какое количество цветов в палитре, если информационный объем изображения размером 512х512 равен 224 килобайт

👇
Открыть все ответы
Ответ:
дншегзпгх
дншегзпгх
30.05.2023

program CS;

var S,C:real;

var r:integer;

Const pi = 3.14;

begin

   writeln('Введите радиус');

   Readln(r);

   C:= 2*pi*r;

   S:= pi*sqr(r);

   Writeln('Длина окружности = ', C:5:2);

   Writeln('Площадь круга = ', S:5:2);

   Readln();

end.

Объяснение:

Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).

Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).

   writeln('Введите радиус');  - Выводит на экран надпись в скобках.

  Readln(r);  - функция для ввода радиуса

    C:= 2*pi*r;  - присваиваем значение для С (длина окружности)

   S:= pi*sqr(r);  - присваиваем значение для S (площадь круга)

   Writeln('Длина окружности = ', C:5:2);  - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).

   Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.

   Readln();  - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)

4,4(81 оценок)
Ответ:
sonjasonjasonja
sonjasonjasonja
30.05.2023

1) var a,b: integer ;

begin

readln(a);

b:=(a mod 10)+(a div 10);

if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')  

end.

2)var a,b,i: integer;

begin

 readln(a);

 for i:=1 to 3 do

   if a mod 10 > 3 then begin  b:=b+1; a:=a div 10; end;

   if b=3 then writeln ('верно') else writeln ('не верно')

end.

3)var a,b,c,d,i: integer;

begin

 readln (a);

 b:= b+a mod 10;

d:= a div 10000;

b12:=b+d mod 10;

a:=a div 10;

for i:=1 to 3 do  begin c:=c+a mod 10; a:=a div 10 end;

if c mod b =0 then writeln ('верно') else writeln ('не верно') ;

end.

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