Составте програму ,проверяющую ,что введеное число делиться без остатка на 10
5-9 класс
|
var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 10=0) then writeln('Число делится на 10 без остатка')
else writeln('Число делится на 10 с остатком');
end.
Другие вопросы из категории
подсчитай,сколько деталей изготовил рабочий за 8 часов работы.Зафиксируйте свои действия на каждом из этапов решения этой задачи.
помочь мне, так как данное задание решит мою оценку в четверти и мне хотелось бы, что бы она была положительна. Суть задания, вы можете рассмотреть на фотографии ниже. Заранее благодарю. Программмы писать в Паскале.
Читайте также
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Сначала строим информационную модель устно.
Во-первых, вводятся числа А и В.
Находим остаток от деления числа А на число В.
Если остаток от деления равен нулшю, то выводим результат: Число А делится на число В без остатка
Иначе
Результат – Число А делится на число В с остатком.
2)Увеличить число А на 10 , если оно положительное , в другом случае уменьшить .