Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. Программа должна давать ответ на вопрос: «Правда ли что первое число меньше
10-11 класс
|
остальных" c циклами while repeat
Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
Другие вопросы из категории
с шагом h. НА ПАСКАЛЕ
нему же слева (в разряд тысяч).
Читайте также
последнее самое маленькое? Ответ ЭВМ должна вывести в виде текста-"Правда" или "Неправда"
блок-схему и программу решения задачи
виде текста : правда , неправда
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.