составить программу для решения задачи:задайте целое число;определите,
10-11 класс
|
кратно ли оно 10.
begin
var
x,a:integer;
write('Напишите число: ');
readln(x);
writeln(x);
a:= 10 div x;
if (a>=10) then
writeln('Число кратное десяти')
else
write('Число не кратно десяти');
end.
Другие вопросы из категории
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.
Х. Определить,является ли оно четным и делится ли это число на 3
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию