Даны три числа a b c Составить программу нахождения суммы нечетных чисел(не используйте сложные команды берите Write и тд)Спасибо заранее
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program zadacha;
var a,b,c,s:real;
begin
writeln('a,b,c:');
readln(a,b,c);
s:=0;
if (a mod 2=0) then writeln('a четное число')
else s:=s+a;
if (b mod 2=0) then writeln('b четное число')
else s:=s+b;
if (c mod 2=0) then writeln('c четное число')
else s:=s+c;
writeln('s=',s);
end.