Опубликовано 03.01.2018 по предмету Информатика от Гость

1. ЦИКЛ for на языке Pascal ABC

a. вывести на экран числа
от 0 до 9

b. вывести на экран числа
от 0 до 10

c. вывести на экран числа
1,3,5,7,…21

d. вывести на экран числа
2,4,6,8,…22

e. вывести на экран числа
10, 9, 8, … 1

f. вывести на экран числа
100, 90, 80, … 10

g. найти сумму чисел от 1
до 10

h. найти произведение
чисел от 1 до 5

i. найти сумму модулей от
-5 до 5

j. вывести буквы от ‘A’
до ‘Z’ (использование for для работы с перечисляемыми нечисловыми типами)

Ответ оставил Гость

Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, );
i := i + 1;
End;
ReadLn;
End.

Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, );
End;
ReadLn;
End.

Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, );
ReadLn;
End.

Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, );
End;
ReadLn;
End.

Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.

Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.

Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.

Program TaskJ;
Var c: Char;
Begin
For c := A To Z Do
Write(c, );
ReadLn;
End.