Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
program Lesson9;
var a,b,c,d,i: integer;
begin
i:=0;
while (i<3) do
begin
c:=b;
b:=a;
writeln('vvedite celoe chislo:');
readln(a);
i:=i+1;
end;
writeln(c,' ',b,' ',a);
readln();
end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта и следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).