Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. Программа должна давать ответ на вопрос: «Правда ли что первое число меньше

10-11 класс

остальных" c циклами while repeat

Diananurm 29 окт. 2013 г., 8:36:28 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
аня1005
29 окт. 2013 г., 10:10:29 (10 лет назад)

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.

Ответить

Другие вопросы из категории

Читайте также

составить программу на паскале:) Имеется четыре A,B,C,D произвольных числа.ЭВМ должна ответить на вопрос: Правда ли что первое число самое большое ,а

последнее самое маленькое? Ответ ЭВМ должна вывести в виде текста-"Правда" или "Неправда"

Известна математическая задача: " Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7" А Вы попытайтесь

написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"

Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.



Вы находитесь на странице вопроса "Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. Программа должна давать ответ на вопрос: «Правда ли что первое число меньше", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.