составить программу для решения задачи:задай число,определите кратно ли оно10
10-11 класс
|
program test;
var x: integer;
begin
write('Enter the number: ');
readln(x);
if x mod 10 = 0 then
writeln(x, ' multiple of 10')
else
writeln(x, ' not a multiple of 10');
readln;
end.
var
k : integer;
begin
randomize;
k := trunc (random (1000)); //Задание числа
writeln ('k = ', k);
if k mod 10 = 0 then writeln ('Yes') else writeln ('No');
end.
Не совсем понял, что значит задать число. Если его вводят с клавиатуры, то строчку
k := trunc (random (1000));
заменить на
read (k);
Другие вопросы из категории
a(a-1)(a-2)(a-3).....(a-n)
масса бракованной детали, меньше нормальных деталей на 10 г. Как определить одним взвешиванием на рычажных весах с гирями, ящик с бракованными деталями?
Читайте также
кратно ли оно 10.
Х. Определить,является ли оно четным и делится ли это число на 3
2. Составить программу для упорядоченное двух элементов по убыванию.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.