Вычислить значение выражения

[Genius94]

1)Вычислить значение выражения ((...(20^2-19^2)^2-18^2)^2-...-1^2)^2.
2)Дано натуральное число.Определить,есть ли в нем цифры а и b.
Помогите плиз!!!

[Leshii]

1)

Program cukl;
Uses crt;
const n=20;
var a:array [1..20] of integer;
    i:integer;
	Q:real;
begin
clrscr;
q:=0;
for i:=20 downto 1 do
    q:=q+sqr(sqr(i)-sqr(i-1));
writeln(q:3:2);
end.

2)

Program Natur;
Uses crt;
var a,b,c: integer;
    c1,c2,c3: real;
begin
clrscr;
write('Vvedite a i b (ot 1 go 9): ');
read(a,b);
Write('Vvedite 4islo ot 100 do 999: ');
readln(c);
c1:=c div 100 mod 10;
c2:=c mod 100 div 10;
c3:=c mod 10;
writeln('Vvedeno 4islo= ',c,' ');
writeln('Vvedenu 4isla a=',a,' i  b=',b,' ');
writeln('Komponentu 4isla c ',c1:3:1,' ',c2:3:1,' ',c3:3:1,' ');
if (a=c1) or (a=c2) or (a=c3) then writeln('Estb sovpadenie s 4islom a')
else writeln('sovpadeniy s 4islom a net');
if (b=c1) or (b=c2) or (b=c3) then writeln('Estb sovpadenie s 4islom b')
else writeln(' sovpadeniu s 4islom b net');
readln;
end.

[Zer0]

1 вроде немного неверно, вот мой вариант:

Program cukl;
Uses crt;
const n=20;
var a:array [1..20] of integer;
    i:integer;
	Q:real;
begin
clrscr;
q:=sqr(20);
for i:=19 downto 1 do
    q:=sqr(q-sqr(i));
writeln(q:3:2);
end.

[TinMan]

Леший, привет )
Пара замечаний для разминки (задача 2)
1. пошто цыфирку 0 обидел? ))
2. натуральное - не значит трехзначное.

Глянь-ка такой способ решения, например:

s:= [];
while c>0 do begin
  s:= s+[c mod 10];
  c:= c div 10
end;
writeln((a in s) and (b in s));

P.S.
или, например, так (тоже с множествами)

s:= [a,b];
while (s<>[]) and (c>0) do begin
  s:= s-[c mod 10];
  c:= c div 10
end;
writeln(s=[]);

[Leshii]

Да я только за узреть свои ошибки Для того и пишу.

Касательно второго задания ( я уже глядя на те от 1 до 9 ) думал
исправить единицу на ноль или же обидеть И таки боярыню обидел =)
А программу я скорее для примера написал. Как по мне сложностей быть не должно да и ты вот выложил два способа решения. Так что ТС поле для размышлений.

А за другие варианты спасибо ( закину в копилку )

[TinMan]

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

Да я только за узреть свои ошибки Для того и пишу.

Аз так и внял )). Продолжай в том же духе.