|
составление программ на паскале
|
|
пожалуйста помогите завтра зачёт
СОСТАВИТЬ ПРОГРАММУ ВЫВОДЯЩУЮ НА ЭКРАН ВСЕ ЧИСЛА КРАТНЫЕ ДАННОМУ ЧИСЛУ k из интервала [A....B]
|
|
|
|
var
i,a,b,k:integer;
begin
read(a,b,k);
for i:=a to b do
if i mod k = 0 then write(i);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
пожалуйста помогите завтра зачёт !!
Ввести три целых числаx, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
|
|
|
|
