Pascal abc y=x/2 x> 25 x+4 x< 25
b248553
3
04.10.2019 15:40
1
Другие вопросы по теме Информатика
Bbqqall
14.01.2020 20:04
НИкитос1757
10.06.2019 21:20
maxbf
10.06.2019 21:00
electreheart
10.06.2019 21:00
vmailiki14
10.06.2019 21:00
Maks2405
10.06.2019 21:00
anastasia120996
10.06.2019 21:00
Популярные вопросы
- Назвіть переваги та недоліки РНК-світу?...
3 - Знайдіть область визначення функції Y=x-1÷x²+4.У відповідь запишіть найменше...
3 - Немецкий Задание по немецкому. Прочитать текст, ответить на во к нему и...
3 - Найди значения выражений ( 4,1-8,2): 5,2 ответ округли до десятых...
2 - Из двух поселков александровка и богородское расстояние между которыми 300км...
2 - Составить предлодения со словами сөз,бүлақ,ағаш про наурыз...
1 - Укажите признаки колебательного движения. 2. Сколько раз тело проходит через...
1 - Тест из 4 во по обществознанию...
1 - В какую группу во Дворце пионеров записывается Гуля? (Книга Елены Ильиной)...
2 - Балет Жизель на 3 во Какие чувства переживают герои? 2. Что происходит в...
3
program task31057170;
var
x: integer;
y: real;
begin
Writeln('ВВЕДИТЕ X: ');
Readln(x);
if x > 25 then
y := x / 2
else if x < 25 then
y := x + 4
else Writeln('Error: x = 25!');
Writeln('Y = ', y);
end.