irishkakrasa
05.06.2022 12:40

на Pascal написать программу


на Pascal написать программу

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
zebrakod
28.04.2022 16:53

На Python, C#(просто код без обязательной конструкции) и C++(просто код, без int main, iostream и т.п.)

Объяснение:

Python:

a = int(input())

if a > 0:

print("Greater")

elif a< 0:

print("Lower")

else:

print("Zero")

C#:

int a = convert.ToInt32(Console.ReadLine());

if(a > 0) {

Console.WriteLine("Greater");

}

else if(a < 0) {

Console.WriteLine("Lower");

}

else {

Console.WriteLine("Zero");

}

C++:

using namespace std;

...

int a;

cin >> a;

if(a > 0) {

cout << "Greater" << endl;

}

if(a < 0) {

cout << "Lower" << endl;

}

if(a == 0) {

cout << "Zero" << endl;

}

0,0(0 оценок)
Ответ:
kkkkkdashakkkk
16.03.2023 23:21

[any] Pascal: (без хранения введённых чисел => "эффективная")

var a, i, x: integer; begin  for i := 1 to 6 do  begin    read(a);    if a>0 then x := x + 1    else if a<0 then x := x - 1  end;  if x>0 then write('Больше положительных')  else if x<0 then write('Больше отрицательных')  else write('Одинаково')end.

PascalABC.NET: (с хранением введённых чисел в массиве)

## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы:


Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота