1. Информатика
  2. Программу составить для

Программу составить для решение . задать целое число и определить кратно ли оно 10 через turbo pascal

Marina22111 Marina22111    3   11.07.2019 03:30    2

Ответы
aigerka12345678910 aigerka12345678910  17.09.2020 16:47
Program abc;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Витаминка111118 Витаминка111118  04.05.2021 14:11
Графическим записи алгоритма является: * диаграмма чертёж блок-схема рисунок 2) Что из перечисленного является ПЕРЕМЕННОЙ величиной? * высота Останкинской телебашни температура...
раптраир раптраир  04.05.2021 14:12
1. Котёнок, идущий справа налево, слева направо, останавливается каждые 50 шагов и издает звук «Мяу». Для выполнения скрипта воспользуйтесь Панелью управления .2. Выберите...
Еваююююююююююю Еваююююююююююю  04.09.2020 15:06
Особенности внутренних и внешних IP адресов​...
vaniev2006 vaniev2006  31.08.2019 04:40
Дан массив s из n чисел, значения элементов которых находится на интервале от 0 до 400. заменить все четные элементы стоящие на нечетных местах на противоположные....
sergey000910 sergey000910  29.10.2019 23:25
5завдання, 5 варіант. іть написати програму у паскалі!...
velkovavika15 velkovavika15  29.10.2019 23:17
Написать программу на c++ для решения следующей : в данной последовательности расположить сначала все отрицательные, затем положительные элементы, а нулевые элементы расположить...
Ekaterina8887 Ekaterina8887  28.07.2020 14:42
Информатика, сижу решить не могу...
MrNeik1 MrNeik1  28.07.2020 14:38
решить 4 и 5 номер, подскажите еще какие темы пройти что бы уметь решать 5й и 4й 4. Получите СДНФ функции ¬xzy¬(zy) ( ) 5. В терминологии сетей TCP/IP маска сети – это...
marinapogosyan marinapogosyan  07.08.2019 07:00
Как дефорж проявил себя в сцене с медведем...
Варя200706 Варя200706  07.08.2019 07:00
Wer wurde in bonn geboren? ответ по !...

Популярные вопросы