Программу в pascal abc 1. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. напи-сать программу для решения этой . программа должна иметь дружественный интерфейс. про-тестировать программу для a=5, a=-4, a=0. 2. дано целое число а. если значение а < 0, то необходимо удвоить его. написать программу для решения этой . программа должна иметь дружественный интерфейс. протестировать про-грамму для a=6, a=-10, a=0. 3. дано целое число а. если значение а < > 0, то необходимо уменьшить его на 4. написать программу для решения этой . программа должна иметь дружественный интерфейс. протести-ровать программу для a=2, a=-1, a=0. 4. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . программа должна иметь друже-ственный интерфейс. протестировать программу для a=3, a=0, a=-12. 5. дано целое число а. если значение а = 0, то необходимо увеличить его на 3, иначе при-своить а значение равное 0. написать программу для решения этой . программа должна иметь дружественный интерфейс. протестировать программу для a=0, a=-1, a=8. 6. даны два действительных числа x и y. если x> y, то вычислить произведение этих чисел, иначе их сумму. программа должна иметь дружественный интерфейс. протестировать программу на трёх различных тестах (x> y, x=y и x

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

КсенияКэт

05.06.2020 09:12

Будем считать, что система «хлебный магазин» состоит из следующих элементов: хлеб, продавец, покупатель, прилавок, автомобиль, шофер, грузчик, деньги, чек. построить семантическую...

KKnoneTT

12.05.2022 09:05

Написать программу, которая будет определять сколько чисел делиться на 3 без остатка на диапозоне от n до k ...

eio32120kopqicom

10.06.2021 07:32

Подпишись на канал 10 не отмечу нарушение если будет честно. подписчиков 10 на картинке 9.....

rushsh1

09.09.2021 06:47

4 Який із зображених конструктивних елементів використовували в готичній архітектурт?...

Pantiik

28.04.2022 22:01

155. Перепишите, вставляя пропущенные буквы. Объясните написание гласных в личных окончаниях глаголов. 1) Чуть слыш..тся ручей, бегущий в сень дубравы, чуть дыш..т ветерок, уснувший...

140219801

28.04.2022 22:01

Написать краткую биографию искандера....

Эноа

15.04.2020 01:55

Вправа (зняти скісну риску)  Що\б не трапилося лиха, будь обачним. Біда помучить, за\те мудрості научить. Як\би пес робив, то в чоботях би ходив. Весна, про\те ще холодно. Що\б...

Odessey20011

27.02.2022 17:22

На работу было принято 120 человек. Определи по данной диаграмме, сколько человек было принято в каждом месяце....

errreir

06.01.2022 03:15

Оповідання запах думок(1968) поділіться оповідання на частини відповідно до розвитку сюжету. Назвіть їх....

Азрет2002

08.06.2023 10:06

Поміркуйте над питанням, чи можна вважати війну прибутковою справою ( за матеріалами тексту п єси). Свою думку висказати в формі есе. У драмі Бертольда Брехта Матінка Кураж та її...

Ответ:

alsuaxmetzan

07.10.2020 10:09

var

a: integer;

begin

{1}

readln(a);

if a > 0 then a := a + 1;

writeln(a);

{2}

readln(a);

if a < 0 then a := a * 2;

writeln(a);

{3}

readln(a);

if a <> 0 then a := a - 4;

writeln(a);

{4}

readln(a);

if a > 0 then a := a + 1

else a := a - 1;

writeln(a);

{5}

readln(a);

if a = 0 then a := a + 3

else a := 0;

writeln(a);

end.

{6}

var

x, y: real;

begin

readln(x, y);

if x > y then x := x * y

else x := x + y;

writeln(x);

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку