13. Дано число n. Составьте программу для вычисления суммы: s = 1 + 2 + 3 + ... + n.
[email protected] в категроии Информатика, вопрос открыт 28.05.2017 в 21:23
14. Составьте программу в Gpaph ABC. Нарисовать ряд закрашенных в зеленый цвет кругов радиуса 20 пикселей вдоль верхнего края экрана монитора
16. Составьте программу для вычисления числа n: n = 1∙2∙3∙…∙х. Число Х вводится с клавиатуры.
1 ответ
[email protected] , ответ добавлен 28.05.2017 в 21:37
Program summa;var sum:BigInteger;i,n:integer;beginwrite ('n = ');readln(n); sum:=0; i:=1; while i<= n dobegin sum:=sum+i; i:=i+1; end;writeln('Sum = ',sum);end.
================================
program krugi;uses graphabc;var x,y,r:integer;begin
setBrushColor(clGreen); x:=22; y:=22; r:=20; while x<660 do begin circle(x,y,r); x:=x+40; end;end.
==============================
program factorial;var pr:BigInteger;i,n:integer;beginwrite ('n = ');readln(n); pr:=1; i:=1; while i<= n dobegin pr:=pr*i; i:=i+1; end;writeln('Факториал числа n! = ',pr);end.
0
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.