оператор cuse

[Joker<777>]

1) Вводится число от 1 до 4 дать название этого числа
2) Дано Трехзначное число, определить равен ли квадрат этого числа сумме кубов его чисел.

[Serge_Bliznykov]

Тема названа бездарно. Совершенно не отражает сути.
Во-вторых, оператор написан с ошибкой!
оператор CASE

case i of
  1: WriteLn('Один');
  2: WriteLn('Два');
  3: ..<сами допишите>
  4: ..<сами допишите>
else
  WriteLn('Ошибка! Неизвестное программе число!')  
end;

в-третьих, вторая задача никакого отношения к оператору CASE не имеет!

[_-Re@l-_]

в-третьих, вторая задача никакого отношения к оператору CASE не имеет!

Почему же? Можно кейзом решить:

var
    t:integer;
Begin
       readln(t);
       ....//находите сумму кубов числа
       t:=sqr(t);
       case t of
       s: ...//если квадрат равен сумме кубов
       else ....//не равен

Глупо, конечно, кейзом решать, но можно.

[Serge_Bliznykov]

Глупо, конечно, кейзом решать, но можно.

можно.
только смысл второй задачи не в IF-е, который Вы заменили на CASE, а в том, чтобы найти сумму кубов цифр трёхзначного числа...

впрочем, автору топика, безусловно, виднее

[Mad_Cat]

s:=0;
x:=ch;
for i:=1 to 3 do begin
d:=ch mod 10;
s:=s+sqr(d)*d;
ch:=ch div 10;
end;
if  s=sqr(x) then writeln('равно')
else writeln('не равно');