плз помогите.. составить программу на языке авс паскаль 1)напишите программу, которая считывает два целых числа a и b
5-9 класс
|
и выводит наибольше значение из них. Числа - целые от 1 до 1000.
при решении задачи можно пользоваться только целочисленными арифметическими операциями +,-,*,//,%,=. нельзя пользоваться нелинейными конструкциями:ветвления, циклами, функциями вычисления модуля, извлечения квадратного корня., и условными функциями!!!!!!!
2) Дано целое число N. Выведите следующее за ним четное число. При решении задачи нельзя использовать условную инструкцию if и циклы!!
хотя бы формулу:) заранее спасибо)
//первая программа
var
a,b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
writeln('Max(', a, ', ', b, ') = ', (a + b + abs(a - b)) / 2);
end.
//вторая программа
var
n:integer;
begin
write('n = '); readln(n);
writeln('Следующее четное число ', n + 2 - (n + 2) mod 2);
end.
Другие вопросы из категории
Читайте также
(for i := 1 to ... do ...).
ЗАДАЧА - Составить программу решения задачи: Z = m/(m-1)
ЗАДАЧА - Составить программу определения четных (нечетных) чисел
в противном случае. Операцией возведения в степень пользоваться нельзя!
Вычислите площадь круга и длину окружности по исходным данным.