Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal алг максимальное число нач цел a, b, m ввод a, b если a> =b то m: =a иначе m: = b все вывод m кон
Ответы
program MaxNum;
var a,b,m:integer;
begin
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
2. PascalABC.NET 3.2
program МаксимальноеЧисло;
begin
var a,b,m:integer;
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
Екі өлшемді суреттерді жасаудың механизмі 1860 жылдары ұсынылды. Механизм зоотроп, мутоскоп, праксиноскоп деп аталатын құрылғылардан тұрады. Бұл құрылғылар көрермендердің қабылдау инерциясы деп аталатын құбылысты жасады. Ол қозғалатын суреттерді әсерлі етіп жасау үшін жеткілікті үлкен жылдамдықпен көрсетілетін стопкадрлардың тізбегінен тұрды. Целлулоид пленкалардың немесе стоп-кадрлардың дамуы нақты уақыт режимінде дененің қозғалысын жазу мүмкіндігін берді. Кино-камералардың, кинопроекторлар мен көшіру пленкаларының дамуы нәтижесінде кескіндерді үлкейту және оны көрермендер үшін үлкен экранда көрсету мүмкіндігі болды, ол катушкадағы жеке омега компоненттерді жазу және сақтау арқылы іске асырылды
Объяснение:
32 Кбайта
Объяснение:
Количество цветов в изображении вычисляется по формуле: 
, где N - количество цветов (кол-во цветов), а i - объем памяти, занимаемый ОДНИМ пикселем (бит).
В нашем случае цвета всего 2 (N=2), из чего следует: 
, то есть i=1 биту.
Количество занимаемой информации вычисляется по формуле: 
, где I - общий объем занимаемой информации (бит), k - кол-во пикселей для кодирования (пикс.), i - объем памяти для кодирования ОДНОГО пикселя (бит).
В нашем случае пикселей в изображении 
. Подставим в формулу данные и получим: 
бит информации.
1 байт = 8 =
бит
1 Кбайт = 
байт = 
бит.
Кбайта.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Мне нужно побыстрее Сор за 5 класс
Решите, ! высказываний. выражение а="зима холодная", в="сессия приближается" как
Python или Pascal, на любом языке, главное - условие
Раставте знаки 1 2 3 4 5 6=1. 1 2 3 4 5 6 7 8 9=1
Напишите программу в паскале
var
a, b, m: integer;
begin
read(a, b);
if a >= b then
m := a
else m := b;
writeln(m);
end.