Вывести на экран число от 1 до 5в. а) прямом порядке b) обратном порядке
5-9 класс
|
1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Другие вопросы из категории
ие может относиться и к ярлыку и виджету одновременно)
1.Программа , скопированная на рабочий стол
2.Область на рабочем столе с интерактивным содержимым
3.Ссылка на программу, находящуюся в любом месте жёсткого диска
4.Папка, находящаяся на рабочем столе
5.Документ, созданный в какой-либо программе (например в Word или Excel)
6.Ссылка на папку, находящуюся в любом месте жёсткого диска
7.Ссылка на документ, созданный в какой-либо программе (например в Word или Excel)
Читайте также
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
вывести на экран квадраты и кубы в диапазоне от -10 до +10
используя repeat
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале