Люди срочно пожалуйста кто хорошо знает информатику??? нужно пятое задание сделать (Определите сумму нечетных чисел . если введенное число будет четным - цикл заканчивается ) НУЖНО СОСТАВИТЬ ПРОГРАММУ !!! - Начало : Program Wrile_Demo;
Var
...
Помогите пожалуйста.
Answers & Comments
Verified answer
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть кодprogram p1;var s, c:integer;begin while true do begin writeln('Введите число >> '); readln(c); if c mod 2 <> 0 then begin s:=s+c; end else break; end; writeln('Сумма четных чисел:'+ s);end.