Программа с циклом for Program z var i,n integer begin writeln('Введите n') readln(n) for i1 to n do

Название	Программа с циклом for Program z var i,n integer begin writeln('Введите n') readln(n) for i1 to n do
Анкор	repeat
Дата	26.04.2022
Размер	19.87 Kb.
Формат файла
Имя файла	repeat.docx
Тип	Программа #497423

Задача: написать программу, которая выводит на экран все натуральные числа от 1 до n

Программа с циклом for

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

for i:=1 to n do

write(i,' ');

end.

Программа с циклом while

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

i:=1;

while i<=n do

begin

write(i,' ');

i:=i+1;

end;

end.

Программа с циклом repeat

Program z;

var i,n:integer;

begin

writeln(' Введите n');

readln(n);

i:=1;

repeat

write(i,' ');

i:=i+1;

until i>n

end.

Задания для самостоятельной работы:

Десять раз написать свои фамилии на экране в строчку
Дано целое число, вывести его на экран «в столбик» 5 раз
Написать программу, которая выводит на экран все натуральные числа от n до 1
Написать программу, которая выводит на экран: 20 40 80 160 320
Напечатать целые числа -10, -5, 0, 5…20
Написать программу, которая подсчитывает произведение натуральных чисел от 1 до n
Написать программу, которая выводит на экран табл. умножения, например на 6.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 1, 2 … 15 кг конфет.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 0,1; 0,2 … 1,2 кг конфет.
Даны целые числа x, y. Найти произведение всех целых чисел, расположенных между х и у.

Задача: написать программу, которая выводит на экран все натуральные числа от 1 до n

Программа с циклом for

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

for i:=1 to n do

write(i,' ');

end.

Программа с циклом while

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

i:=1;

while i<=n do

begin

write(i,' ');

i:=i+1;

end;

end.

Программа с циклом repeat

Program z;

var i,n:integer;

begin

writeln(' Введите n');

readln(n);

i:=1;

repeat

write(i,' ');

i:=i+1;

until i>n

end.

Задания для самостоятельной работы:

Десять раз написать свои фамилии на экране в строчку
Дано целое число, вывести его на экран «в столбик» 5 раз
Написать программу, которая выводит на экран все натуральные числа от n до 1
Написать программу, которая выводит на экран: 20 40 80 160 320
Напечатать целые числа -10, -5, 0, 5…20
Написать программу, которая подсчитывает произведение натуральных чисел от 1 до n
Написать программу, которая выводит на экран табл. умножения, например на 6.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 1, 2 … 15 кг конфет.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 0,1; 0,2 … 1,2 кг конфет.
Даны целые числа x, y. Найти произведение всех целых чисел, расположенных между х и у.