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

Primary tabs

Submitted by Aleksandr on Sun, 07/25/2021 - 10:44

Forums:

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

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

program lesson11_10;
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.
  • Log in to post comments
  • 821 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 12:16

можно решить без обмена значений, добавьте такой вариант решения

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

Aleksandr

Tue, 07/27/2021 - 15:51 

program lesson11_10;
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, ') = ', a + b + c);
    readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:33

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

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