1. ЦИКЛ for на языке Pascal ABCa. Вывести на экран числа…

1. ЦИКЛ for на языке Pascal ABCa. Вывести на экран числа от 0 до 9b. Вывести на экран числа от 0 до 10c. Вывести на экран числа 1,3,5,7,… 21d. Вывести на экран числа 2,4,6,8,… 22e. Вывести на экран числа 10, 9, 8, … 1f. Вывести на экран числа 100, 90, 80, … 10g. Найти сумму чисел от 1 до 10h. Найти произведение чисел от 1 до 5i. Найти сумму модулей от -5 до 5j. Вывести буквы от ‘A’ до ‘Z’ (использование for для работы с перечисляемыми нечисловыми типами)

в избранное

mendelberg

12 марта 2023

Program TaskC; Var i, il: Integer; BeginFor i: =1 To 21 DoIf i Mod 2=1 ThenWrite (i, '); i: =i+1; End; ReadLn; End.Program TaskD; Var i: Integer; BeginFor i: =1 To 11 DoWrite (i*2, '); End; ReadLn; End.Program TaskE; Var i: Integer; BeginFor i: =10 DownTo 1 DoWrite (i, '); ReadLn; End.Program TaskF; Var i: Integer; BeginFor i: =10 DownTo 1 DoBeginWrite (i*10, '); End; ReadLn; End.Program TaskG; Var i, sum: Integer; BeginFor i: =1 To 10 Dosum: =sum+i; WriteLn (sum); ReadLn; End.Program TaskH; Var i, product: Integer; Beginproduct: =1; For i: =1 To 5 Doproduct: =product*i; WriteLn (product); ReadLn; End.Program TaskI; Var i, sum: Integer; BeginFor i: =-5 To 5 Dosum: =sum+Abs (i); WriteLn (sum); ReadLn; End.Program TaskJ; Var c: Char; BeginFor c: ='A' To 'Z' DoWrite (c, '); ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?