Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
Текст, число, формула. А 2 я не знаю.
Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
Var i,t,j, n:integer; b:array[1..20] of integer;s:string;begin write('Введите число n = '); readln(n); repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; writeln(b); for i:= 1 to i do begin for j:= 2 to i do begin if b[j-1] < b[j] then begin t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t; end; end; end; writeln(b); for t:=1 to i do s:= s + inttostr(b[t]); write(s); end.
Программа для решения задачи - в прилагаемом файле. Только размерность там не 20*30, а 5*4 (чтобы легче проверять было).