3 года назад

Pascal. Определить значение Y при заданном вещественном значении X.

Знания

Информатика

1 ответ:

lukale3 года назад

0 0

Var x,y:real;
begin
read(x);
if x < -1 then y = -x;
if (x >= -1)and(x <=1) then y = 1;
if x > 1 then y = x;
end.

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

Паскаль. Написать программу разветвляющегося алгоритма решения ниже даннойзадачи на языке PascalЗадача:Даны два целых числа: A,

манархн

Program programm;

var A,B: integer;

begin

writeln('Введите число A: ');

readln(A);

writeln('Введите число B: ');

readln(B);

if (A > 1) and (B < -3) then

writeln('Неравенство ВЫПОЛНЕНО!')

else

writeln('Неравенствено НЕ выполненно!');

end.

0 0

4 года назад

Для какого х истинно выражение: (x<3)&((x<2) ∨(x>2)) X=1 ; X=2 ; X=3 ; X=4

maximum64

(х<3) подходит х=1 и х=2
(х<2) подходит х=1
(х>2) подходит х=3, х=4

0 0

4 года назад

Дам 98 баллов!!!!!!!!

geckea

1. Подсчет количества чисел из диапазона [1, 100], кратных 7.

2. В цикле ОШИБКА, причет очень грубая. Скорее всего, автор задачи хотел найти сумму чисел из диапазона от 1 до 10, которые кратны 3 и не кратны 9. Но в данном случае ничего вычисляться не будет из-за ошибки (будет зацикливание).

3. Вычисление среднего арифметического четных чисел из диапазоне от 10 до 99. Тоже написано очень коряво.

0 0

4 года назад

Прочитать ещё 2 ответа

То не может являться источником проникновения вируса на компьютер?А)МодемБ) Электронная почтаВ) Жесткий дискГ) Съемные носителис

Artem2308 [1]

Модеммммммммммммммммммммммммм а

0 0

4 года назад

Помогите пожалуйста решить задания по информатике. Хотя бы несколько)Буду вам очень благодарна)

людмила Новик [1]

1)3 2)3 3)4 4)4 5)3 6)б,с,д,а 7)3270 вторую страницу не осилила)))

0 0

4 года назад