Безотлагательно, пожалуйста!!!В PascalABC составьте программку:в промежутке от 0 до 100 вывести

Безотлагательно, пожалуйста!!!
В PascalABC составьте программку:
в интервале от 0 до 100 вывести на экран числа, которые делятся на введенное с клавиатуры число.
4)23
5)23 46 69 92

4)3
5)3 6 9 12 25 18... 99

Задать свой вопрос
1 ответ
Var
chislo:integer;
i:integer;

begin
writeln('Введите число');
read(chislo);
writeln('На ',chislo,' делятся:');
for i:=0 to 100 do
begin
if i mod chislo = 0 then
writeln(i);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт