В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
шпион223709
шпион223709
13.07.2021 15:00 •  Информатика

А
номери будинків
з'ясувати, чи знаходяться будинки з номерами п та м на одній стороні вулиці.
вхідні дані
значення пта m (1вихідні дані
вивести 1, якщо будинки з номерами п та m знаходяться на одній стороні вулиці та 0 у
протилежному випадку,
в пиріжки
пиріжок у шкільній їдальні коштує а гривень та копійок. знайдіть скільки гривень та копійок
заплатить петрик за п пиріжків.
вхідні дані: три натуральних числа a, b, n (0) < a,b, п< 100).
вихідні дані: через пропуск два числа: вартість покупки у гривнях та копійках.
вхідні дані
1 25 2
вихідні дані
2 50
с
голосні
до голосних літер в латинському алфавіті відносяться літери а, е, i, o, uіy. інші літери
вважаються приголосними. напишіть програму, як: підраховує кількість голосних літер в тексті.
..
он​

Показать ответ
Ответ:
sonyacherepanova
sonyacherepanova
24.04.2023 01:01
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
0,0(0 оценок)
Ответ:
erke999000
erke999000
13.01.2023 21:05
Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота