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

[lisa_alisa]

1. Трёхзначное число n. проверить будет ли сумма его цифр чётнным числом.

2. Определить равен ли квадрат заданного числа кубу суммы цифр этого числа.

3. Единицы массы пронумерованы следующим образом : 1 - килограмм , 2 - миллиграм, 3 - грамм, 4 - тонна, 5 - центнер. Дан номер единицы массыи массы тела N в этих единицах (вещественное число). Вывести массу данного тела в килограммах.

[alex_fcsm]

var i,n:integer;

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

[alex_fcsm]

var i,n,temp:integer;

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

[alex_fcsm]

Если правильно понял

var i:byte;
    x:real;

begin
readln(i,x);
case i of
1: writeln(x,'kg');
2: writeln(x/1000000,'kg');
3: writeln(x/1000,'kg');
4: writeln(x*1000,'kg');
5:writeln(x*100,'kg');
 else writeln('Unknown');
 end
end.

[lisa_alisa]

А другие способые есть???

[maladoy]

другие способы чего....?

[KORN]

Сообщение от lisa_alisa

А другие способые есть???

вот такие вот у нас пошли гимназисты... куда мир катится7

а самим попробовать переписать7 все же уже написали

[lisa_alisa]

сами уже не можем...гуманитарный класс , а учат как физ мат...))

[maladoy]

сами уже не можем...гуманитарный класс , а учат как физ мат...))

а нечего по гимназиям шастать если не можете- в школах нормальных надо учиться!!!! имхо

[alex_fcsm]

Сообщение от lisa_alisa

сами уже не можем...гуманитарный класс , а учат как физ мат...))

Да-да задачи сугубо физматовские