Помощь гимназистам!!!

[lisa_alisa]

Извиняюсь за грубость, но я всё же спросила про задачи и есть ли другие варианты решений, а не про уровень познаний девятиклассников-гимназистов!

[maladoy]

есть еще минимум один!!!! а вам зачем извините????

[maladoy]

1

var i,n:integer;

begin
readln(n);
i:=0;
repeat
 
  i:=i+n mod 10;
  n:=n div 10;
until n=0;
 if i mod 2=0 then writeln('yes')
    else writeln('no');
end.

[lisa_alisa]

А нам, пожалуйста, для того, что способы изложенные выше нам ещё не давала, а если в контрольной их написать таким способом - не пройдёт.

[maladoy]

2

var i,n,temp:integer;

begin
readln(n);
temp:=n;
i:=0;
repeat
 
  i:=i+n mod 10;
  n:=n div 10;
 until n=0;
 if (sqr(temp))=(sqr(i)*i) then writeln('yes')
    else writeln('no');
end.

[maladoy]

3

var i:byte;
    x:real;

begin
readln(i,x);

if i=1 then writeln(x,'kg') else
if i=2 then writeln(x/1000000,'kg') else
if i=3 then writeln(x/1000,'kg') else
if i=4 then writeln(x*1000,'kg') else
if i=5 then writeln(x*100,'kg')
 else writeln('Unknown');

end.