Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран максимальное значение из трех вводимых с клавиатуры чисел.
10-11 класс
|
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a>b) and (a>c) then writeln('Max chislo = ',a);
if (b>a) and (b>c) then writeln('Max chislo = ',b);
if (c>b) and (c>a) then writeln('Max chislo = ',c);
readln;
end.
program max_chislo;
var
a,b,c:integer;
begin
write ('Введите три числа через пробел');read(a,b,c); readln;
if (a>b) and (a>c) then write('максимальное число = ',a);
if (b>a) and (b>c) then write('максимальное число = ',b)
else write ('максимальное число = ',c);
readln;
end.
Другие вопросы из категории
местами максимальный и отрицательный элементы. Вывести новый массив
цены на обои,1 вид клея,из площади комнаты вычесть площадь окон и дверей.
1. Рассказ о прошедшем – это…
а. география
б. биология
в. математика г. природоведение
д. история
е. информатика
2. Предмет или явление, о котором мы собираем информа-цию, это…
а. носитель информации
б. предмет сохранения
в. объект наблюдения
г. запись на бумаге
3. Люди собирают информацию, когда:
а. наблюдают
б. рисуют
в. думают
г. измеряют
д. записывают е. наблюдают
ж. рисуют
з. размышляют
и. слушают
к. пишут
Написать программы и блок-схемы:
1). для различных вводимых с клавиатуры целых чисел, найдите сумму положительных чисел
2). дано положительное число А. найдите среди чисел 1, 1 + 1/2 + 1/3, ... первое, больше А
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
клавиатуры. На экран вывести результат вычислений в виде таблицы. 1 Блок-схема алгоритма программы, выполненная с использованием графических средств редактора WORD; 2 Текст программы; 3 Результаты выполнения (копия экрана). (3x+2)^2- sqrt3x/(3x)^2 a 5;b 7; h 0,1