Ответы на вопрос:
Var str : string; i,c,a,count : integer; begin i: =1; count : =0; writeln('вводите числа, как только введете все числа нажмите любую букву'); while i=1 do begin readln(str); val(str,a,c); if ( a mod 2 < > 0) then count : = count +a; if(c< > 0) then i: =0; end; writeln('сумма нечетных чисел = ', count); end.
Популярно: Информатика
-
Egorka20030816.09.2021 15:28
-
elenagorodan01.10.2021 14:42
-
Владислава300028.08.2022 12:34
-
Era38372714.01.2023 02:15
-
Gladiator97428.03.2021 01:13
-
Владимир32820.03.2020 09:53
-
ABAYMALGAZHDAROvvv14.06.2020 20:59
-
ansarildar15.11.2020 11:21
-
Wensansys26.03.2020 14:39
-
Апоппопп19.07.2020 13:39