Программа на Pascal. вывести на экран все числа кратные заданному А, из интервала указанного пользователем... или так наверно
10-11 класс
|
понятнее:
пользователь ввел число А и интервал чисел, из этих чисел вывести на экран кратные числу А.
пусть введенный интервал будет
B и C,где B<C
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.
Другие вопросы из категории
Читайте также
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Вывести все четырехзначные, у которых все цыфры разные, кратные К и произведение цифр которых равно числу N.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.