•  СРОЧНО,ПОМОГИТЕ!!! Напишите программы в pascal,пожалуйста. Вот задачки: 1.Написать программу, которая выводит таблицу кубов первых трех положительных четных чисел. 2.Написать программу, которая вычисляет сумму первых N целых положительных нечетных чисел. 3.Написать программу, которая вычисляет сумму первых N членов ряда 1,3,5,7,...Количество суммируемых членов ряда задается во время работы.

Ответы 1

  • 1)

    var n,i,kv:integer;beginkv:=1; readln (n); for i:=1 to n do begin if (i>0) and (i mod 2= 0) and (i<>0) then kv:=i*i*i; writeln (kv); end;end.

     

    2)

    var n,i,sum:integer;begin readln (n); for i:=1 to n do begin if (i>0) and (i mod 2<>0) then sum:=sum+i; end;writeln (sum);end.

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years