1. Информатика
  2. Впаскале дано число,

Впаскале дано число, если оно кратно 5,то умножить его на 10. написать программу.

maker1287 maker1287    3   21.07.2019 18:20    0

Ответы
Санчоус146854 Санчоус146854  03.10.2020 09:48
Program a1;
Var a:integer
Begin
Writeln ('Введите число');
Readln(a);
If a mod 5 =0 then writeln (a*10);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Mona228 Mona228  11.07.2019 04:00
Составить алгоритм который вычисляет сумму n первых целых положительных нечетных чисел...
digo2 digo2  21.09.2020 16:16
Повідомлення займає 3 сторінки й має довжину двійкового коду 7950 байт. Визначте, скільки рядків на сторінці, якщо в кожному рядку 25 символів і використане кодування Unicode...
otepovaaazan otepovaaazan  21.09.2020 16:15
Как создать и читать QR-коды?...
rasul1233 rasul1233  26.09.2019 20:00
Какой адрес ячейки является относительным? 1) $a1$b1 2)$a$1$b$1 3)a$1b$1 4)a1b1...
Helpmepleas17 Helpmepleas17  26.09.2019 20:00
Кпрограммы не 1)ms excel 2)coreldraw 3)oc unix 4)photoshop...
Andrey26022002 Andrey26022002  26.09.2019 20:00
C++ циклы братья вилли билли и дилли пошли на поиски клада, и нашли s монеток. сколько монет нашел каждый из них, если известно, что вилли и билли нашли одинаковое количество монет,...
tonia8 tonia8  26.09.2019 20:00
Дана строка не более 50 символов. переписать в обратном порядке все слова, начинающиеся с заданной буквы. определить количество предложений в строке. написать программу в паскале...
МОМОГИТИ1 МОМОГИТИ1  26.06.2019 17:50
Найти лишнее слово в каждой строчке клавиатура, джойстик, сканер, принтер. монитор, графопостроитель, принтер, мышь. жёсткий диск, flash-память, компакт-диск, процессор. принтер,...
Aleksandra1111117 Aleksandra1111117  26.06.2019 17:50
Придумайте 5 примеров с электронными таблицами !...
lubovsalamatova lubovsalamatova  24.01.2021 19:34
Постройте логическую схему, соответствующую логическому выражению, и найдите значение логического выражения: 1) F=AvB&¬C, если A=1, B=1, C=1. 2) F = ¬(AvB&C), если A=0, B=1,...

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