Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  hxdhfhd
Language: PASCAL
Code:
Program slojenie;
var s,x: integer;
begin
writeln ('Введите x=');
readln (x);     
if x mod 2 =0 
then
s:=x/2
else
s:=x+10;
writeln ('Ответ',s);
readln(a);
end.
          
          
          
          
Comments: