Задача 8 Урок 11

Задача 8 Урок 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

program lesson11_8;
var
    a, num1, num2, num3 : integer;
begin
    num3 := 0;
    num2 := 0;
    num1 := 0;
    while num3 = 0 do
    begin
        writeln('enter number a');
        readln(a);
        if (a < 0) and (a mod 2 <> 0) then
        begin
            num3 := num2;
            num2 := num1;
            num1 := a;
            if num3 < 0 then
                writeln(num3, ' ', num2, ' ', num1)
        end;
    end;
    readln()
end.
vedro-compota's picture

тоже можно решить без обмена

По-идее результат:


writeln(num3, ' ', num2, ' ', num1)

должен выводиться за пределами тела цикла

_____________
матфак вгу и остальная классика =)

program lesson11_8;
var
    a, b, c, d, temp : integer;
begin
    d := 1;
    while d <= 3 do
    begin
        writeln('enter number temp');
        readln(temp);
        if (temp < 0) and (temp mod 2 <> 0) then
        begin
            if d = 1 then
                a := temp
            else if d = 2 then
                b := temp
            else
                c := temp;
            d := d + 1;
		end;
	end;
    writeln(a, ' ', b, ' ', c);
    readln();
end. 
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)