Pascal. даны три переменные вещественного типа: a, b, c. если их значения упо- по возрастанию или убыванию, то удвоить их; в противном слу- чае заменить значение каждой переменной на противоположное. вывести новые значения переменных a, b, c.

241

270

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

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

sanakajpak

Информатика

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

Var a, b, c: real; begin write('введите через пробел три числа -> '); readln(a, b, c); if ((a > b) and (b > c)) or ((a < b) and (b < c)) then begin a : = 2 * a; b : = 2 * b; c : = 2 * c end else begin a : = -a; b : = -b; c : = -c end; writeln('новые значения чисел: ', a, ', ', b, ', ', c) end. тестовое решение: введите через пробел три числа -> 18 5 -3 новые значения чисел: 36, 10, -6 введите через пробел три числа -> -6 0 5 новые значения чисел: -12, 0, 10 введите через пробел три числа -> 11 20.7 4.9 новые значения чисел: -11, -20.7, -4.9

Аноним8127

Информатика

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

ответ:
Uses sysutils;

var x, y:integer;
var x_s, y_s:string;
begin
x_s:= 'x: ';
y_s:= 'y: ';
for x:=21 to 26 do
begin
y := x*x*x-x+5;
x_s += IntToStr(x) + ' ';
y_s += IntToStr(y) + ' ';
end;
writeln(x_s);
writeln(y_s);
end.

Объяснение:
Просто запихнул все х и у в строки, а потом вывел в консоль.