Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;
if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);
end.
Program test;
var i,n,k,s1,es,al:integer;
s:string;
begin
write('Введите кол-во повторений:');
readln(n);
write('Введите строку:');
readln(s);
repeat
inc(k);
for i:=length(s) downto 1 do s:=s+s[i];
for i:=1 to length(s) do
if i mod 2 = 0 then
begin
es:=strtoInt(s[i])+1;
delete(s,i,1);
insert(InttoStr(es),s,i);
end;
writeln(k,') ',s);
until k=n;
for i:=1 to length(s) do
if StrtoInt(s[i]) mod 2 = 1 then inc(al);
writeln('Кол-во нечетных чисел: ',al);
<span>end.</span>
Там есть программная кнопка,внимательней смотри.
Правильный вариант 3
Здесь мы объявляем массив из 8 элементов и присваиваем элементу с индексом 0 значение 0
Далее цикл идет, заполнения массива. Отметим, что цикл начинается с 1, т.е. со второго элемента(индексация в массивах с 0). Так же, массив до 8.
Т.е. мы заполним: 1,2,3,4,5,6,7 элементы. А 0 заполнили ранее. + формула совпадает с исходной.