3. (на оценку 3). Разработать алгоритм для решения задачи. Даны два числа. Если они равны, то вывести сумму их квадратов. В противном случае вывести квадрат их суммы.

На паскале

program zadanije_tri;

var a, b, c:integer;

begin

 writeln('Введите первое число.');

 readln(a);

 writeln('Введите второе число.');

 readln(b);

 if a=b then

   begin

   c:=a*a+b*b;

   writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');

   end

 else

   begin

   c:=(a+b)*(a+b);

   writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');

   end

end.

Объяснение:

Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.

program Hello;

var

   a : integer;

   b : integer;

begin

readln(a, b);

if a = b then

   writeln(a * a + b * b)

else

   writeln(a * a + 2 * a * b + b * b);

end.

знаки той же арифметики, если эмоции- те же смайлики.

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;