1. ЦИКЛ for ** языке Pascal ABCa. вывести ** экран числа от 0 до 9b. вывести ** экран...

Question

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 для работы с перечисляемыми нечисловыми типами)

Comments

Можно всё в одной программе написать?

---

с-j осталось решить, желательно в разных, начиная с вара до енда:)

---

По одному буду добавлять окей?

---

ок)

Answer 1

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.

Comments

Спасибо, но как я понял это турбо паскаль?
просто не могу доработать эти программы в абц

---

Я их сам писал на ABC и проверял так же.

---

Что именно не можете сделать?

---

ну тогда в каждой программе получается ридлн лишней командой) И не понимаю команды While i > 0 Do(можно ли ее представить через for?), и команда Char - не понятна. (тк я только начал изучать паскаль и не особо могу в него вникнуть)

---

за исправление того что попросил, буду очен благодарен и конечно посталю Луч Реш))

---

ReadLn; всегда пишу, так как то может компилить программу на Турбо или Борланд Паскале. Это чтобы не закрывало сразу после вывода, я думаю вы поняли.

---

While i > 0 Do(представил через for)
Char - это тип переменной "символ". У вас условие стоит "использование for для работы с перечисляемыми не числовыми типами". А Char - это и есть не числовой тип.

---

можете все while исправить на for? просто не понимаю как заменить на for.
вот как я изменил и выдает ошибку в 6-ой строке: Program TaskC;
Var i: Integer;
Begin
For i:=1 to 21 Do
Begin
i := i + 1;
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.

---

Все исправил.

---

Спасибо)