Напишите программу на Паскале для вычисления функции:50 БАЛЛОВ

Знания

Информатика

1 ответ:

Людмилчик7 [7]4 года назад

0 0

var x,y: real;

begin

write('x = ');

readln(x);

if x<=0 then y:=-x

else if x<=2 then y:=x

else if x<=4 then y:=4-x

else y:=x-4;

writeln('y = ',y:4:1);

end.

Пример:

x = 3

y = 1.0

Читайте также

Найти значения x y z Эту задачу решать, как обычную алгебраическую задачу?

BorisPls

Відповідь:

x = -27; y = -8; z=5

Пояснення:

Дивись фото:)

0 0

4 года назад

Составьте алгоритм решения задач с помощью Калькулятора 1) 3•9 + 6•7 + 64:8 = 2) 81:9•8 + 3•8:4 = 3) 2•(18+2):5 + 24:4 =

koka196510

1) 1)3•9
2)6•7
3)64:8
4)27+42
5)69+8

0 0

3 года назад

Назовите элементы множеств "звери и серые" "звери или серые" "звери и не серые" "не звери и не серые" "не звери и серые"

GudVal [70]

1. Серый волк
2. Серое небо, заяц
3. Белый заяц
4. Красный сок
5. Серый дом

Примерно так

0 0

4 года назад

Даны два массива чисел X = (x1,x2,...,xn) и У = (у1,у2,...,уn). Найти массив Z, у которого каждый элемент zi равен произведению

Марина8800

Var
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.

0 0

3 года назад

Укажите какой командой можно изменить междустрочный интервал?

эдик басурин

Выделяем текст и: Формат>Абзац>Отступы и интервалы>межстрочный

0 0

4 года назад