РЕШИТЕ ПОЖАЛУЙСТА ТРИ ЗАДАЧИ

1)Вывести на экран число симметричное в веденному двухзначному число.

2)Вывести на экран результат сравнения двух чисел.

3)Вести линейный массив и вычислить сумму всех элементов этого массива.

1

Ответы и объяснения

2013-11-11T13:02:01+00:00
1)uses crt;
var a,e,d:integer;
begin
readln(a);
e:=a mod 10;
d:=a div 10;
writeln(e,d);
end.
2)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if a>b then writeln('первое число больше');
if a<b then writeln('второе число больше');
if a=b then writeln('они равны');
end.
3)uses crt;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s);
end.