Задать вопрос Регистрация
Помочь другим

  • Написать программы на Паскале.

    1. Вычислить [tex]y^{x}[/tex] . X - натуральное число.

    2. Среди 10 введённых с клавиатуры чисел подсчитать количество отрицательных и произведение положительных. Рассмотреть случай если отрицательных чисел нет.

Ответы 1

  • 1)

    uses crt;var x,y,pr:integer;beginread(y,x);pr:=1;repeatpr:=pr*y;x:=x-1;until x=0;write(pr);end.

     

    2)

    uses crt;var a:array[1..10] of integer; pr,i,k:integer;beginfor i:=1 to 10 do read(a[i]);clrscr;pr:=1;for i:=1 to 10 do begin if a[i]<0 then k:=k+1; if a[i]>0 then pr:=pr*a[i]; end;writeln('Исходный массив: ');for i:=1 to 10 do write(a[i],' ');writeln;if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');write('Произведение положительных элементов равно: ',pr);end.

    • Автор:

      torirksm
    • 6 лет назад
    • 0

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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