Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №15-2 / 15-2 / zadanie_2
.pas program Zadanie_2;
var
X:integer;
x1,x2,x3,s:byte;
begin
writeln ('‚ўҐ¤ЁвҐ ваҐе§ 箥 зЁб«®');
readln (X);
x1:=x div 100;
if x1 mod 2=0 then x1:=0;
x2:=(x mod 100) div 10;
if x2 mod 2=0 then x2:=0;
x3:=x mod 10;
if x3 mod 2=0 then x3:=0;
s:=x1+x2+x3;
writeln('‘㬬 зЁб« , ў ¤ҐбпвЁз®© § ЇЁбЁ Є®в®а®Ј® Ґв зҐвле жЁда = ',s);
readln ();
end.
var
X:integer;
x1,x2,x3,s:byte;
begin
writeln ('‚ўҐ¤ЁвҐ ваҐе§ 箥 зЁб«®');
readln (X);
x1:=x div 100;
if x1 mod 2=0 then x1:=0;
x2:=(x mod 100) div 10;
if x2 mod 2=0 then x2:=0;
x3:=x mod 10;
if x3 mod 2=0 then x3:=0;
s:=x1+x2+x3;
writeln('‘㬬 зЁб« , ў ¤ҐбпвЁз®© § ЇЁбЁ Є®в®а®Ј® Ґв зҐвле жЁда = ',s);
readln ();
end.