Задание 1. Напишите программу, определяющую принадлежность точки х отрезку [a;b]. (все переменные опишите как real и введите с клавиатуры).

Для проверки принадлежности точки х отрезку [a;b] воспользуйтесь условием (x>=a) and (x<=b)

Примеры ввода-вывода:

Задание 2. Вводится порядковый номер дня недели n.

При значениях n = 1, 2, 3, 4, 5 – вывести «Это рабочий день», при n = 6, 7 – вывести «Это выходной»,

во всех других случаях – вывести «Ошибка ввода».

(При определении условия n = 1, 2, 3, 4, 5 используйтесь условием (N= 1)or(N= 2)or(N= 3) и т.д..

Задание 3. Вводятся оценки (f, a, g, h ) за 4 контрольные работы – по физике, алгебре, геометрии и химии. Если каждая оценка больше или равна 4, вывести на экран «МОЛОДЕЦ!».

В остальных случаях вывести «ПОДТЯНИСЬ!». (Используйте сложное условие)

Задание 4. Проверить, существует ли треугольник со сторонами a, b, c (ввести с клавиатуры). Для проверки используйте неравенство треугольника: сумма длин любых двух сторон должна быть больше третьей. То есть нужно проверить одновременно три условия: a+b>c, a+c>b, b+c>a.

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

tanya2017kazanova

19.02.2020 00:52

Программа с применением оператора цикла для вычисления суммы ряда для PascalABC...

artemafanasev2003

14.03.2022 05:05

Рассчитайте объем видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с расширением 768х512 и количеством отображаемых цветов, равным 256...

Classica27725

18.10.2022 06:53

Написать программу, с которой можно найти наименьшее из четырех заданных чисел....

KILOBAIT

13.04.2023 22:09

Составить программу, которая находит количество цифр данного целого числа....

karapetyanhovn1

05.10.2020 12:38

Вдоме 8 этажей. петя живёт на 5-ом этаже. сколько информации содержит данное сообщение? а) 3 бит б) 8 байт в) 5 бит г) 3 байт какой ip-адрес может быть у компьютера? а) 200.270.245.14...

юля6712

26.06.2020 15:27

. Запишите в развернутой форме числа: а) Х10=1431; в) Х10=143,511; б) Х2=100111; г) Х2=1011,012. Какое минимальное основание имеет система счисления, если в ней записаны числа 127...

Uprava

21.04.2021 00:24

Протабелювати функцію y=x*cos*2x на проміжку від -1 до 1 з кроком h=0,2. визначити суму додатних значень. паскаль....

abakanovalera

21.04.2021 00:24

Чуваки, . не шарю совсем, надо написать программу и лучше с объяснениями. дано натуральное число. верно ли, что в данном числе нет данной цифры а (цифру а вводить с клавиатуры)...

Pro100Brotanich

21.04.2021 00:24

Напишите компоненты вычислительной системы...

germannesta

04.09.2021 21:54

Пусть видеопямять компьютера имеет обьём 512 кбайт. размер графической сетки 640-480 . сколько страниц экрана одновременно разместится в видео пямяти при палитре из 16 цветов , 256...

Ответ:

Enotiha217

30.06.2021 02:41

Исходя из самого вопроса - тут не важно само выражение функции.

1. 7 { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
n:=0;
k:=-6;
While k<=6 do
Begin
    k:=k+2;
    n:=n+1;
end;
Writeln('n = ',n);
end.

2. 7   { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-2;
While k<=1 do
Begin
    k:=k+0.5;
    n:=n+1;
end;
Writeln('n = ',n);
end.

3. 3 { -3, -1, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-3;
While k<=2 do
Begin
    k:=k+2;
    n:=n+1;
end;
Writeln('n = ',n);
end.

4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
n:=0;
k:=-1;
While k<=2 do
Begin
    k:=k+0.5;
    n:=n+1;
end;
Writeln('n = ',n);
end.

0,0(0 оценок)

Ответ:

зика23

22.10.2022 11:15

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var t:=ReadlnString(':').MatchValue('\(.*\)');
Writeln(t[2:t.Length])
end.

Пример
: Напечатаем только то (что в скобках) и не более!
что в скобках

Пояснения.
1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда.
2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку