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

Ввести число. если число кратно 4, то к его разделить на 4

Wjdjsjsksji Wjdjsjsksji    3   01.09.2019 23:50    3

Ответы
matthewfeat matthewfeat  06.10.2020 10:44
Var
a:integer;

begin
readln(a);
if (a mod 4 =0) then
a:=a div 4;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Mишутка9887 Mишутка9887  21.05.2019 19:50
1) дан массив а(5) заполненный случайными числами от 0 до 5. посчитать и вывести на экран сумму всех элементов массива. 2) дан массив а(20) заполненный случайными...
tv7antena tv7antena  21.05.2019 19:50
Буду ! 1).131,21 (в четверичной системе счисления) надо перевести в восьмеричную 2). 765 (в восьмиричной системе) надо перевести в в четверичную 3). 123,13 (в четверичной)...
dnmsmd dnmsmd  21.05.2019 19:50
Вычислить среднее арифметическое значение тех элементов одновременного массива, которые в интервал от -2 до 10. размерность массива произвольная. или дан массив,...
daaler daaler  21.05.2019 19:50
Файл размером 1024 байта передается через некоторое соединение за 64 миллисекунды. определите время в миллисекундах, за которое можно передать через то же самое соединение,...
ValeriaSalvatore ValeriaSalvatore  21.05.2019 19:50
Перевести в разные системы счисления. 1) 50а,е2(в шестнадцатиричной) перевести в десятиричную систему счисления) 2) 15а(в шестнадцатиричной) перевести в десятиричную...
dmitriytkach30 dmitriytkach30  21.05.2019 19:50
Объем свободной памяти на диске - 5,25 мб,разрядность звуковой платы-16.какова длитель ость звучания цифрового аудиофайла ,записанного с частотой дискретизации 22,05...
митгпош митгпош  18.02.2021 00:21
Можете у меня задание на фото!...
hello120 hello120  18.02.2021 00:25
Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу​...
alsuaxmetzan alsuaxmetzan  18.02.2021 00:38
Запишите маску, которая позволяет сгруппировать все файлы, расширение имени которых состоит из одного символа: *...
coldenye coldenye  18.02.2021 00:45
ОТВЕТИТЬ НА 1 ЛЕГКИЙ ВОПРОС...

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