составьте программу в Паскале определения наименьшего числа из трех
5-9 класс
|
Это легко пошевели мозгами всё получится 100%
var
i:integer;
min:real;
a:array[1..3]of real;
begin
for i:=1 to 3 do
begin
writeln(i,' число:');
readln(a[i]);
if i=1 then min:=a[1];
if a[i]<min then min:=a[i]
end;
writeln('Наименьшее: ',min)
end.
Другие вопросы из категории
дорожек по 9 секторов. Сколько символов содержит этот текст?
Читайте также
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.