М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ВЕSТ
ВЕSТ
07.04.2022 05:25 •  Информатика

В программе pascal. Напишите программу вычисляющую значение функции используя вложенное ветвление:
100, при х<0
у= 50, при x=0
0, при х >0

👇
Ответ:
Kakashka2001
Kakashka2001
07.04.2022

program z1;

var x,y:integer;

begin

read(x);

if x<0 then y:=100

         writeln('y=',y)

         else

                 if x=0 then y:=50

                           writeln('y=',y)

                           else

                                  if x>0 then y:=0

                                            writeln('y=',y);

end.

Объяснение:

4,4(61 оценок)
Открыть все ответы
Ответ:
olga810706
olga810706
07.04.2022
Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
4,6(56 оценок)
Ответ:
polina359674
polina359674
07.04.2022

#include <stdio.h>

#include <stdlib.h>

int main()

{

int A[10]={};// Создаем массив состоящий из 10 элементов.

int CountForPlus = 0;// Счетчик для положительных значений.

int CountForMinus = 0;// Счетчик для отрицательных значений.

int Summ = 0;// Переменная в которой будут храниться сумма  элементов массива

printf("Vvedite 10 elementov massiva \n");

for (int i = 0; i < 10; i++)

{

 

 scanf_s("%d", &A[i]);

 if (A[i] < 0)

 {

  CountForMinus++;// Если, элемент массива будет отрицательным,

      // то счетчик для отрицательных значений будет увеличиваться.

 }

 else

 {

  CountForPlus++;// Иначе, элемент массива будет положительным,

       // то счетчик для положительных значений будет увеличиваться.

 }

 //Summ += Arr[i];

}

if (CountForPlus > CountForMinus) // Сравниваем счетчики, если положительный больше отрицательного то

{          // находим сумму всех элементов массива

 for (int i = 0; i < 10; i++)

 {

  Summ += A[i];

 }

 printf("%d \n", Summ);

}

else

{

 printf("otricatelnih elemntov massiva bolshe chem polochitelnih \n");

}

system("pause");

return 0;

}

Объяснение:

4,5(92 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ