Составьте программу с использованием процедуры,которая вычислит следующее значение:

если x< 1 то y=x+3;

если x> 1 то y=x-3;

на паскале

147

308

Посмотреть ответы 2

Ответы на вопрос:

Sofochka1309

Информатика

4,6(3 оценок)

procedure solve(x: integer);

var y: integer;

begin

if x< 1 then y: =x+3

else if x> 1 then y: =x-3;

write('y=',y);

end;

var x: integer;

begin

writeln('x=');

readln(x);

solve(x);

end.

megais

Информатика

4,8(22 оценок)

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество колонок в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var k: =0; foreach var column in a.cols do if column.zip(column.orderbydescending(x-> ,y)-> x=y).all(x-> x=true) then k+=1; writeln('k=',k) end. пример количество строк в массиве: 3 количество колонок в массиве: 9 *** исходный массив [3,9] *** 42 29 -18 -13 75 -55 73 -41 -34 -13 -25 62 -83 80 83 70 -75 91 -59 45 87 45 18 -87 62 9 27 k=2

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.