Задание:
Составить программы 1) Вводить случайное число N ( <= N<10). Выводить N случайных чисел (от 0 до 20) и считать их сумму 2) Выводить все двузначные числа, которые делятся "5" или оканчиваются на "1"
Решение:
Pascal: 1) var n,sum,a,i: integer; begin randomize; repeat write ('N='); readln (n); until n in [1… 9]; sum: =0; for i: =1 to n do begin a: =random (20); inc (sum,a); write (a: 3); end; writeln; writeln ('Summa: ',sum); end.2) var i: integer; begin for i: =10 to 99 do if (i mod 5=0) or (i mod 10=1) then write (i: 3); writeln; end.C+: 1) #include Знаете другой ответ?