1. Информатика
  2. Написать программу:

Написать программу: дано число, если оно делится на 8, увеличить его на 3, иначе уменьшить в 10 раз. результат вывести на экран.

UlyaYouth111 UlyaYouth111    1   02.08.2019 20:00    0

Ответы
Masha200605 Masha200605  03.10.2020 20:19
Program zadacha;
var a:integer;
begin
readln (a);
if a mod 8=0
then a:=a*8
else a:=a div 10;
writeln (a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
чувак65 чувак65  16.04.2020 10:30
Обладатель интеллектуальной собственности на ОИС Объект Интеллектуальной Собственности 15 букв...
ainura8326 ainura8326  16.04.2020 10:30
Проанализируй и напиши программу на языке Паскаль. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=7, то на экране выводится n!=...
pikulev pikulev  16.04.2020 10:31
Дам 50б После выполнения алгоритма Робот нарисовал узор и оказался в клетке B3. алг узор нач влево; закрасить; вправо вправо; закрасить; влево вниз; закрасить; вверх кон В...
almioaistaeva almioaistaeva  21.09.2019 02:50
Составить программу к в паскаль. дано число. если оно положительное, то увеличьте его на 1, в противоположном случае уменьшите его на 2. результат выведите на экран....
Pon4ik11119999 Pon4ik11119999  21.09.2019 02:50
Составить программу, которая создает и заполняет массив из 12 целых чисел случайными двузначными числами. вывести массив на экран. если последняя цифра значения элемента массива...
guzel231299 guzel231299  21.09.2019 02:50
Заполнить массив а (размер м на n) с клавиатуры, вывести на экран и найти произведение отрицательных элементов массива!...
makar32ryc makar32ryc  21.09.2019 02:50
Вподарках лежат кукла, машина и конфеты, но кто-то перепутал все надписи! известно, что в подарке №1 не кукла. 1. что лежит в подарке №1? конфеты машина кукла нельзя узнать...
farkhundaibragimova farkhundaibragimova  12.08.2019 10:30
1. если все элементы одномерного массива положительные, то вывести сообщение «условие выполняется», иначе «условие не выполняется». 2. дан массив из n элементов. определить...
katemur6969 katemur6969  12.08.2019 10:30
Сколько можеть быть максимум оперативной памяти в ноутбуках и телефонах...
Гульнара1709 Гульнара1709  12.08.2019 10:30
Мощьность алфавита 16 символов . текст состоиттиз 10 страниц на каждой странице 30 строк на каждой строке 50 символов . определите информационный процесс...

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