Решение домашних заданий

ПРОШУ, ПОМОГИТЕ! 1 Составьте програму вычисления сумы ченых чисел в диапазоне от 1 до 100. 2 Составьте програму вычисления произведения чисел от

1 января 0001 / Информатика / Комментарии: 0

ПРОШУ, ПОМОГИТЕ!

 1) Составьте  программу вычисления суммы ченых чисел  в диапазоне от 1 до 100. 
2) Составьте  программу вычисления произведения чисел от 1 до  10. 
3)  Составьте программу, которая находит сумму квадратов чисел от 1 до 10.

  • Program a1;
    var x1, sum:integer;
    begin
    sum:=0;
    for x1:=1 to 100 do
    if x1 mod 2=0 then sum:=sum+x1;
    writeln(sum);
    end.

    program factorial;
    var x1,fak:integer;
    begin
    fak:=1;
    for x1:=1 to 10 do fak:=fak*x1;
    writeln(fak);
    end.

    program a3;
    var x1,sum:integer;
    begin
    sum:=0;
    for x1:=1 to 10 do sum:=sum+sqr(x1);
    writeln(sum);
    end.

Добавить комментарий