1. Информатика
  2. Допишите программу в Pascal

Допишите программу в Pascal и определите значения перменной x после выполнение программы.
a:=2;
x:=a+2;
if x>4 then
x:=x+2*a
else x:=a-x;

Daann4ik Daann4ik    2   25.04.2020 19:38    0

Ответы
бобикбарбос бобикбарбос  13.10.2020 21:18

x = -2

Объяснение:

program Pascal;

var a,x : Integer;

begin

a:=2;

x:=a+2;

if x>4 then

x:=x+2*a

else x:=a-x;

writeln(x);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kataderabinaКатюшка kataderabinaКатюшка  06.06.2019 00:50
Слово нбщбфэ получено с шифра виженера с ключевым словом ваза. восстановите исходное слово....
шпион223709 шпион223709  06.06.2019 00:50
Дан целочисленный массив состоящий из 30 элементов. вывести кол-во положительных,отрицательных и нулевых элементов. программа нужна для паскаль abc, желательно объяснить что и как...
ulozerova ulozerova  15.08.2019 08:10
Решите . по годовому депозиту назначена ставка 12% годовых.каждую ставку годовых процентов нужно назначить на полугодовой депозит,чтобы последовательное переоформление полугодового...
кекай кекай  15.08.2019 08:10
Программное обеспечение компьютера. системные программы: pascal avast java gimp opera c++ winrar ms word что из этого является системной...
LiliLayd LiliLayd  15.08.2019 08:10
Информационной моделью является: заводной игрушечный автомобиль диаграмма анатомический муляж макет здания модель корабля...
alexutkin22241 alexutkin22241  25.08.2019 19:10
Паскаль 1. выпишите недопустимые имена переменных: a) nomer; b) s34; c) и92; d) kol_vo54; e) 45_а; f) fg-n23...
berteret6 berteret6  25.08.2019 19:10
Паскаль написать программу нахождения суммы всех натуральных чисел от 1 до 99, используя цикл с параметром....
VanilkaII VanilkaII  25.08.2019 19:10
Вывести все значения элементов заданной числовой последовательности. входные данные: выходные данные: во входном потоке в первой строке записано единственное целое число n (0 n =...
никита3429 никита3429  25.08.2019 19:10
Паскаль мне нужно что будет выведено на экран после выполнения фрагмента программы: begin a: =12; if (a 10) and (a 12) then n: =a+5 else n: =a-1; writeln(n); end. варианты ответа...
valya14071983p07upc valya14071983p07upc  25.08.2019 19:10
Паскаль что будет выведено на экран после выполнения фрагмента программы: begin x: =1; if x 5 then y: =6 else y: =0; writeln(y); end. варианты ответа 1)1 2)6 3)0 4)y...

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