Урок 11 Задача 10
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var a, g, b, d: integer;
begin
g := 0;
b := 0;
while (true) do
begin
readln(a);
if ((a < 0) and ((a mod 2) <> 0) and (g < 3)) then
begin
writeln('Podhodyasee chislo =', a);
g := g + 1;
b := b + a;
end;
if (g = 3) then
break;
end;
writeln('Symma =', b);
readln();
end. - Log in to post comments
- 1348 reads
vedro-compota
Thu, 07/29/2021 - 20:53
Permalink
1) нет ссылки на условие
1) нет ссылки на условие
2) перепишем без break
3) по итогам работы кода в трех переменных должны быть три числа
_____________
матфак вгу и остальная классика =)
MrDeadSummer
Thu, 07/29/2021 - 22:05
Permalink
Урок 11 Задача 10
Урок 11 Задача 10
var a, g, b: integer; begin while (g < 3) do begin readln(a); if ((a < 0) and ((a mod 2) <> 0) and (g < 3)) then begin writeln('Podhodyasee chislo =', a); g := g + 1; b := b + a; end; end; writeln('Symma =', b); readln(); end.