Программу в 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
Dima98891
1
12.09.2019 18:00
8
Другие вопросы по теме Информатика
vanya165
13.02.2022 00:57
11cat13
13.02.2022 00:55
asurnakova156
13.02.2022 00:50
nikinouston342
21.05.2020 20:17
DmaExectionSDK
21.05.2020 20:16
ayaulym10
17.11.2019 18:10
margo344
17.11.2019 18:10
Krst263
23.02.2020 19:59
Sem0001
02.08.2019 04:40
Популярные вопросы
- Ay11. Вычислите?(1,75 +1,75:1) 140 — 0,325) = 0,4...
1 - 3. Заимствованные слова из тюркского языка А) апельсин, салатВ)...
3 - Найдите 8-й член арифметической прогрессий 21, 18, 15.. Дайте...
3 - 12. Упростите выражения:сtg p-tg Вcos2B...
3 - Найдите одиннадцатый член арифметической прогрессии, если её...
1 - 13. Класс состоит из 26 человек, среди которых 12учеников и...
2 - 10. Вычислите число сочетаний СЗ.А) 24B) 210C) 21D) 35E) 840...
3 - Найдите разность арифметической прогрессии если А1=6 а8=34...
2 - Часті, в 7.1.2.5 - применять свойства степенеіі для упрощения...
2 - Объясните . Увидел задачку на просторах интернета. Никогда такого...
2
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.