составить на Паскале прогу определения минимума из 3 чисел с использованием логических операций(прога должна иметь дружественный интерфейс)
5-9 класс
|
заранее спасибо)
uses crt;
var a,b,c,min:integer;
begin
writeln('Введи три числа: ');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('Наименьшее из этих чисел: ',min);
readln;
end.
Язык программирования: Паскаль
var
a, b, c, min : integer;
begin
readln (a);
readln (b);
readln (c);
min := a;
if b < min then
min := b;
if c < min then
min := c;
writeln (min);
end.
Другие вопросы из категории
т.е. A[0] = 6; A[1] = 9 и т.д.
Определите значение переменной c после выполнения следующего фрагмента программы.
c := 0;
for i := 1 to 9 do
if A[i - 1] < A[i] then begin
c := c + 1;
t := A[i];
A[i] := A[i - 1];
A[i - 1] := t
end;
рассуждения, кодирование, структурирование, поиск) будет производиться
при выполнении следующих действий:
а)
Радист записывает на русском языке сообщение, полученное с помощью азбуки Морзе
б)
момент броска мяч находится на высоте 2 м.
Читайте также
(ввод данных осуществляться в режиме диалога).
логических операций. Программа должна иметь дружественный интерфейс.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.