сервис вопросов и ответовДано целое число, если оно делиться на 3 без остатка то увеличить его на 1;в противном случае уменьшить его на 2. На паскале
10-11 класс|
|
Kondratyukal
04 нояб. 2013 г., 0:58:52 (10 лет назад)
Irik16111
04 нояб. 2013 г., 1:51:48 (10 лет назад)
var
x: longint;
begin
write('Введите число ');
readln(x);
if x mod 3 = 0 then //Если х делится на 3, то...
x := x + 1 //Увеличиваем х на 1
else //В противном случае ....
x := x - 2; // Уменьшаем на 2
writeln('Результат: ',x); //Вывод полученого числа
end.
Emoroznichenko
04 нояб. 2013 г., 3:52:36 (10 лет назад)
uses crt; {подключение модуля CRT}
var
x: integer; {описание переменных}
begin {начало программы}
writeln('vvedi chislo: '); {вывод текста на экран}
read(x); {чтение введеных данных}
if (x mod 3 = 0) then x:=x+1 {условие}
else x:=x-2; {если условие не выполняется}
write('rezultat: ',x); {вывод текста на экран}
end. {конец программы}
Ответить
Другие вопросы из категории
7) Для кодирования букв А, В, С, D используются четырехразрядные последовательные двоичные числа, начинающиеся с 1 (от 1001 до 1100 соответственно). Если
таким способом закодировать последовательность символов CADB и записать результат в шестнадцатеричном коде, то получится:
1) AF5216 2) 4CB816 3) F15D16 4) В9СА16
Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a:=1819
b:=(a div 100)*10+9
a:=(10*b-a) mod 100
Читайте также
Найдите наименьшее K, такое что K! делится на N без остатка. K!=1*2*3...*(K-1)*K
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4
Найдите наименьшее K, такое что K! делится на N без остатка. K!=1*2*3...*(K-1)*K
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4
Найдите наименьшее K, такое что K! делится на N без остатка. K!=1*2*3...*(K-1)*K
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4
Не сложно, но срочно.
Написать программу для Pascal.
Дано целое число, если оно является положительным, то прибавь к нему 5; в противном случае не изменять его. Вывести полученное число.
Вы находитесь на странице вопроса "Дано целое число, если оно делиться на 3 без остатка то увеличить его на 1;в противном случае уменьшить его на 2. На паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.