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; 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.

a = input()

total = 0

for i in a:

   total += int(i)

print(total)

Объяснение: