Знайти більше з трьох чисел. Напишіть блок-схему і програму до завтра......терміново
5-9 класс
|
var
a,b,c,h:integer;
begin
read(a,b,c);
if a>b then h:=a
else h:=b;
if c>h then h:=c;
writeline('Hight number=',h);
end.
Другие вопросы из категории
В ответ укажите одно число - значение переменной с
В = 16 Если А – В <= А то С = В + 2 * А иначе С = В – 2 * А С = 10 + С / 2
Выполните предложенный алгоритм.
В ответе укажите значение переменной С после выполнения алгоритма.
1) для разработки эмблемы организации, учитывая, что она должна будет печататься на маленьких визитных карточках и на больших плакатах;
2)при редактировании цифровой фотографии?
ответ обоснуйте!
Читайте также
Очень прошу помогите
Найти сумму первых n натуральных чисел кратных 3.
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a);
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b);
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
writeln(maxlongint);
readln;
end.