Задание:
Используя циклы решить задачи в паскале: 1) Ввести число и вывести все его делители 2) Составить программу, планирования закупки товаров вмагазине на сумму, не превышающую заданной величины.
Решение:
ЗАдача 1.program xxx; var i, n: integerbegin writeln ('введите число N='); readln (n); writeln ('Делители числа: '); for i: =1 to n do if n mod i=0 then writeln (i); readlnend.
Знаете другой ответ?