У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.
var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;
if (f=true) then
t:=1
else
t:=2;
if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.
var z,s:integer;
f:boolean;
begin
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;
Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');
Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной
Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)
решение задачи
program Lesson95;
var A,B:integer;
begin
writeln('vvedite chisla A,B:');
readln(A, B);
if (A > B) then
writeln(' maximalnoe chislo: A')
else
writeln('maximalnoe chislo: B');
readln();
end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.
решение задачи:
program lesson94;
var A,B,C:integer;
begin
writeln('vvedite chisla A,B,C');
readln(A, B, C);
if (A > 17) AND (B > 17) AND (C > 7) then
writeln('DA')
else
writeln('NET');
readln();
end.
