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

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 16:44

Forums:

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

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

Решение

program  U11z10;
var count, a, b,c: integer;
begin
  count:= 1;
  while (count <= 3) do
  begin
    c:=b;
    b:=a;
    writeln('Vvedite celoe chislo:');
    readln(a);
      if (a < 0) and (a mod 2 = -1) then
         begin
             writeln( a, ' ', b, ' ', c);
             writeln( 'Summa: ', a, ' + ', b, ' + ', c, ' = ', a +  b + c);
             count:=count+1;
         end;
    end;
    writeln('End!');
     readln();
end.
  • Log in to post comments
  • 1633 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 20:14

1) тут не подразумевается обмен переменных (для принятие решение куда писать значение - смотрите на текущее значение счетчика)
2) также есть проблемы с форматированием

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

nglag

Sun, 07/18/2021 - 11:33 

program  U11z10;
var a,b,c,i : integer;
begin

  i :=0;
  while (i < 3) do  // счетчик в цикле while
  begin
    writeln('vvedite chislo:');
    readln(a);
    if (a < 0) and ((a mod 2) = -1) then  //условие поиска нужных переменных
    begin //блок ввода трех переменныхб отвечающих условию
        if (i=1) then
            readln(a)
        else if (i=2) then
            readln(b)
        else
            readln(c);
     end;

     writeln(a, ' ',b,' ',c);
     writeln(a + b + c);
     i := i+1;

   end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 07/18/2021 - 11:41

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

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