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

Внекотором учебном заведении действуют следующие правила приёма. абитуриенты 3 экзамена. если они набирают не менее 80 , это даёт им право поступить на дневное отделение, если от 40 до 60 - на вечернее, от 20 до 40 - на заочное, ниже 20 - отказ в приёме на учёбу. написать программу на pascal, которая в зависимости от суммы набранных сообщает абитуриенту его права на поступление

👇
Ответ:
ева518
ева518
12.11.2022
Задаете несколько переменных и присваиваете каждые значения, которые требуются в задаче. по типу: 
if x>80 then writeln('dvednoe') и так далее, но лучше сразу оптимизировать программу, не писать несколько if, не забывайте про else
4,5(28 оценок)
Открыть все ответы
Ответ:

ответ:

1) переведем размер изображения из сантиметров в дюймы. исходя из того, что 1 дюйм = 2,54 см., получаем: 27.94 см = 27.94 / 2.54 = 11 дюймов.

2) размер изображения в дюймах равен:   11   * 11   = 121 дюйм.

3) информационный объем графического файла определяется по формуле: l = k * i, где к - общее количество точек изображения, i - глубина цвета.

к = 600 * 1200 * 121 = 87120000 (умножили разрешение сканера на размер изображения).

l = 87120000 * 24 бита = 2090880000 бит.

переведем в мегабайты: 2090880000 бит = 2090880000 / 8 = 261360000 байт.

                                      261360000 байт = 261360000 / 1024 = 255234.38 килобайт.

                                      255234.38 килобайт = 255234.38 / 1024 = 249,25 мегабайт.

ответ: 249,25 мегабайт.

объяснение:

4,5(19 оценок)
Ответ:
olgavish761
olgavish761
12.11.2022

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.

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