№2. Составить программу для решения задачи:
10-11 класс
|
задайте целое число; определите, кратно ли оно 10.
program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
Другие вопросы из категории
ы. Объём конуса определяется по формуле V=R2 H/3. язык С++
из n
целых чисел с клавиатуры. Поменяйте
местами минимальный и максимальный
элементы.
WHILE...DO, а вывод - REPEAT...UNTIL (в скобках указана размерность массива):
увеличить элементы массива с четными индексами на 1 (11)
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.
кратно ли оно 10.