var
x, y: real;
K: word;
begin
writeln('Введите исходные данные:');
write('x= ');
read(x);
write('K= ');
read(K);
case K of
0: y := 1;
1..3: y := x;
4: y := 4 * x + 5;
5..10: y := 2 * x - 1;
else y := 3 * x + 1;
end;
writeln('ответ: y= ', y);
end.
// проверено в PascalABC.NET 3.4.2, сборка 1837 от 12.10.2018
Программа выведет число 160.
Записать условие задачи можно например так: увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.
Объяснение:
Эта программа увеличивает целое число m на 1 до тех пор, пока остаток от деления его на 16 не равен 0.
Дано целое число m.
Ему присвоено первоначальное значение = 154.
Затем выполняется цикл:
пока (остаток от деления m на 16 ≠ 0) выполнять
m увеличить на 1.
Как только в результате циклического увеличения числа m на 1 получится число, которое без остатка делится на 16, цикл заканчивает свою работу и выполняется следующая команда программы:
Записать (‘M= ’, m); - вывод результата на экран.
В результате работы программы будет выведено число 160.
Записать условие задачи можно например так:
увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.
Программа выведет число 160.
Записать условие задачи можно например так: увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.
Объяснение:
Эта программа увеличивает целое число m на 1 до тех пор, пока остаток от деления его на 16 не равен 0.
Дано целое число m.
Ему присвоено первоначальное значение = 154.
Затем выполняется цикл:
пока (остаток от деления m на 16 ≠ 0) выполнять
m увеличить на 1.
Как только в результате циклического увеличения числа m на 1 получится число, которое без остатка делится на 16, цикл заканчивает свою работу и выполняется следующая команда программы:
Записать (‘M= ’, m); - вывод результата на экран.
В результате работы программы будет выведено число 160.
Записать условие задачи можно например так:
увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.
var
k: Word;
begin
Read (k);
case k of
0: Write ('y = 1');
1, 2, 3: Write ('y = x');
4: Write ('y = 4x + 5');
5, 6, 7, 8, 9, 10: Write ('y = 2x - 1');
else Write ('y = 3x + 1');
end;
end.