pascalabcnet/bin/PT4/Lib/PT4-CWA-5For.txt
Mikhail Abramyan 3b3872ed64 New PT4 files
2016-03-02 00:41:38 +03:00

143 lines
2.4 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Topic1=Программирование, 1 ступень. Классная работа
Topic2=Занятие 5. Оператор цикла for
Author=Воскресная компьютерная школа мехмата ЮФУ (sunschool.mmcs.sfedu.ru), 2016
[=PascalABC]
[1]
{
Дополните заголовок цикла for так, чтобы программа напечатала
30 звездочек на одной строке:
******************************
}
begin
for var i :=
Print('*');
end.
[2]
{
Дополните заголовок цикла for так, чтобы программа напечатала
числа от 1 до 9 на одной строке:
1 2 3 4 5 6 7 8 9
}
begin
for var i :=
Print(i);
end.
[3]
{
Дополните заголовок цикла for так, чтобы программа напечатала
числа от 19 до 11 на одной строке в порядке убывания:
19 18 17 16 15 14 13 12 11
}
begin
for var i :=
Print(i);
end.
[4]
{
Укажите в операторе Print выражение (содержащее переменную i), которое
позволит напечатать числа от 2 до 18 с шагом 2:
2 4 6 8 10 12 14 16 18
}
begin
for var i := 1 to 9 do
Print( );
end.
[5]
{
Укажите в операторе Print выражение (содержащее переменную i), которое
позволит напечатать первые 10 нечетных чисел:
1 3 5 7 9 11 13 15 17 19
}
begin
for var i := 1 to 10 do
Print( );
end.
[6]
{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала числа от 5 до 45 с шагом 5:
5 10 15 20 25 30 35 40 45
}
begin
var k := 5;
for var i :=
begin
Print(k);
k :=
end;
end.
[7]
{
В предыдущей задаче требовалось напечатать числа от 5 до 45 с шагом 5:
5 10 15 20 25 30 35 40 45
Решите эту же задачу, не используя вспомогательную переменную. Для этого
укажите в операторе Print подходящее выражение, содержащее переменную i.
}
begin
for var i := 1 to 9 do
Print( );
end.
[8]
{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала вещественные числа от 1.1 до 1.9 с шагом 0.1:
1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9
}
begin
var k := 1.1;
for var i :=
begin
Print(k);
k :=
end;
end.
[9]
{
В предыдущей задаче требовалось напечатать числа от 1.1 до 1.9 с шагом 0.1:
1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9
Решите эту же задачу, не используя вспомогательную переменную. Для этого
укажите в операторе Print подходящее выражение, содержащее переменную i.
}
begin
for var i := 1 to 9 do
Print( );
end.
[10]
{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала начальные степени числа 2:
1 2 4 8 16 32 64 128 256 512 1024
}
begin
var k := 1;
for var i :=
begin
Print(k);
k :=
end;
end.