Циклические алгоритмы и разработка программыЦиклы с параметрамиРазработать схему алгоритма (блок схему), написать программный код на языке паскаль, используя оператор FOR?
Циклические алгоритмы и разработка программы
Циклы с параметрами
Разработать схему алгоритма (блок схему), написать программный код на языке паскаль, используя оператор FOR.
Паскаль построить программу?
Паскаль построить программу.
Циклический алгоритм.
A (a - 1)(a - 2)(a - 3).
(a - n).
Соедини точки отрезками, выполняя циклический алгоритм?
Соедини точки отрезками, выполняя циклический алгоритм.
Составить алгоритм решения задачи с помощью паскаля, используя конструкцию циклического алгоритма?
Составить алгоритм решения задачи с помощью паскаля, используя конструкцию циклического алгоритма.
Найдите сумму первых десяти чисел, кратных пяти.
Придумать 1 задачу 3 класс циклический алгоритм?
Придумать 1 задачу 3 класс циклический алгоритм.
Почему алгоритм вычисления N?
Почему алгоритм вычисления N!
Должен быть циклическим?
Какие словосочетания невозможны в информатике 1?
Какие словосочетания невозможны в информатике 1.
Линейный алгоритм 2 Циклический алгоритм 3 Круговой алгоритм 4 Разветвляющийся алгоритм.
Нужен пример циклического алгоритма?
Нужен пример циклического алгоритма.
Циклический алгоритм круговорот воды?
Циклический алгоритм круговорот воды.
Примеры циклических алгоритмов в литературных произведениях?
Примеры циклических алгоритмов в литературных произведениях.
Перед вами страница с вопросом Паскаль?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 5 - 9 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Var sum, k, n, i : integer ;
begin
readln(k, n) ;
sum : = 0 ;
fori : = k to n do
sum : = sum + i * i ;
writeln(sum) ;
end.
№2
var k, n, i : integer ;
begin
readln(k, n) ;
fori : = 1 to n do
write(k, ' ') ;
end.
3333333333
var pol, otr, nul, a, n, i : integer ;
begin
readln(n) ;
pol : = 0 ;
otr : = 0 ;
nul : = 0 ;
fori : = 1 to n do
begin
readln(a) ;
if a = 0 then nul : = nul + 1 ;
if a> ; 0 then pol : = pol + 1 ;
if a< ; 0 then otr : = otr + 1 ;
end ;
writeln(nul) ;
writeln(otr) ;
writeln(pol) ;
end.