Составить прграмму с командой while для решения задачи: Найти сумму 1+3+5+7+9 ... + 31.

Дана программа которая ищет сумму однозначных чисел, с командой While исправьте её на программу с командой For Program dj; Var x, y:integer; begin y:=0; x:=1; while x

Переделать задачи для for 1) q:=5; d:=1; while q>0 do begin d:=d+q; dec (q) end; writeln (q,' ', d) ; 2) q:=5; d:=1; while q>0 do begin dec (q) ; d:=d+q end; writeln (q,' ', d) ; 3) q:=5; d:=1; while q>0 do dec (q) ; d:=d+q; writeln (q,' ', d) ;

Pascal составить прграмму. Работа светофора запрограммирована таким образом: в начале каждого часа 3 минуты горит зелёный свет, затем 2 минуты красный, затем 3 минуты зелёный и т. д. Дано время t в минутах от начала часа.

Условие задачи: Покупатель должен заплатить в кассу S рублей. У него имеются 10, 50, 100, 500, 1000 и 5000 рублей Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр? Что не так в коде?

Составить прграмму S=1/2 A*N