Вывести числа кратные 4 на отрезке от а до б. Паскаль
5-9 класс
|
const
N = 10;
var
c: array[1..N] of integer;
a, b, i: integer;
begin
writeln('Введите отрезок: '); readln(a, b);
for i := 1 to N do begin
c[i] := random(30);
write(c[i],' ');
end;
writeln;writeln;
for i := a to b do begin
if(c[i] mod 4 = 0) then write(c[i], ' ');
end;
end.
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
writeln('Чиcла кратные 4 на отрезке от ', a, ' до ', b);
for a := a to b do
if (a mod 4 = 0) and (a <> 0) then
write(a, ' ');
writeln;
end.
Другие вопросы из категории
одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
Для вывода переменных тел integer, real, char, string, boolean
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
"нет". Петя разработал алгоритм, позволяющий за наименьшее число вопросов отгадать число задуманное Колей.
Вопрос:
Сколько вопросов потребуется Пете, чтобы отгадать задуманное Колей число, если оно принадлежит отрезку:
1)от 1 до 32
2)от 1 до 512
3)от 1 до 300
4)от 1 до 1024
Желательно в турбо Паскале
изучаемого языка программирования следующие выражения:γ m1m2/r^2 Задание 2 «Вычисления по известным формулам». Написать программу:Найти площадь трапеции по известным основаниям и высоте. Задание №3 «Выделение цифр в записи числа» Написать программу:Дано трехзначное число. Верно ли, что оно заканчивается цифрой 7? Задание №4 «Условный оператор» Написать программу:Даны два целых числа. Составить программу, которая большее число возводит в квадрат, а меньшее увеличивает на 10. Если числа равны, то вывести сообщение «ЧИСЛА РАВНЫ». Задание №5 «Циклы» Написать программу:Напишите программу, которая на отрезке от а до в, выводит на экран все четные числа, оканчивающихся нулем.
на вечернее,от 8 до 9 на заочное,менее 8 балов отказано от приема на учебу.