tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны три символа. верно ли,
Даны три символа. верно ли, что произведение двух первых символов кратно коду третьего символа.
oksanadavidienozexft
1 04.07.2019 08:00
0
Ответы
Shummer
28.07.2020 01:51
Var
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Катя709015
05.10.2019 21:40
Дано число 254000000 . данное число можно представить в виде 0,254⋅10^?...
Наночкка
05.10.2019 21:40
Вывести на экран 10 случайных чисел в диапозоне до 5 кроме 2 и 3...
PolyaBarane
18.06.2019 15:00
Перевести данное число 666 из десятичной системы счисления в двоичную,восьмеричную и шестнадцатеричню системы счисления....
protekte
18.06.2019 15:00
Почему при работе за компьютером необходимо соблюдать правила техники безопасности какие требования правил техники безопасности являются по вашему мнению основными 2-3 примера...
ЭМИР200720082009
18.06.2019 15:00
Два игрока играют в следующую игру. на координатной плоскости стоит фишка. игроки ходят по очереди. в начале фишка находится в точке с координатами (-2; 1). ход состоит...
Кирилл222123123413
18.06.2019 14:50
Какое значение имеет переменная х после выполнения команды х : = sqrt (25)...
mishkaievlev
18.06.2019 14:50
Сообщение о том, что из корзины с разноцветными шарами (все шары разного цвета) достали зеленый шар, содержит 4 бита информации. сколько шаров было в корзине....
SuperMaksni4ic
18.06.2019 14:50
Что будет выведено на экран после выполнения фрагмента программы: begin a: =1; b: =2; if (a =1) and (b =2) then n: =a+b else n: =a-b; writeln ( n ); end....
kostenkoulana7
03.12.2020 11:29
Сөзді құрап жаз Т,А,Р,Т,С...
карина2333
03.12.2020 11:29
Разведчики-математики для того, чтобы опознать своих, используют числовые пароли. Услышав число-пароль, разведчик должен возвести его в квадрат и сказать в ответ первую...
Популярные вопросы
Кому належать слова: «Ні, государю, ти не в силах уже повернути мені...
3
Задание 4. Выберите правильный вариант. 1. I is/am going to go to the...
2
Обєм оболонки повітряноі кулі 200м3. Куля натягує трос,яким іі прикріплено...
2
К реформам Избранной Рады относятся: Выберите один или несколько ответов:...
2
Выбери текстовые редакторы, которые можно использовать для создания веб-страниц....
1
Прямоугольник разделен на 3 равных квадрата. Длина стороны квадрата равна...
2
-20+64=0 метод зміни змінної...
1
1)Мы живем в мире, в котором, к сожалению, слишком много зла, ненависти,...
3
Встановіть відповідність між літературним напрямом і його характерними...
2
составить схемы предложений 1.И всё-таки ему было грустно, и он как-то...
1
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.