даны числа от 36 до 1477 нужно числа кратные 8 поделить

Даны числа от 36 до 1477 необходимо числа кратные 8 поделить на 2 и вывести на экран и числа кратные 7 умножить на 2 и вывести на экран

Задать свой вопрос
Боря Драге
В смысле, перебрать все числа от 36 до 1477 либо даны n чисел, каждое из которых находится в промежутке [36;1477] ?
1 ответ
Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;

end.
Валентина
там mod а не div. Сори.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт