Это решение при задании вручную этих чисел:
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
<span>
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
</span>Writeln('Первое число:', i);
Writeln('Второе число:', k);<span>
end.</span>
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.
во первых взят карандаш и лист
во вторых нарисовать рисунок
во третьех показать учителю
Неправильно записан ответ на последний пример. Исправь.
А закономерность очень простая. Первоначально идет повышение на одну единицу (т.е. 1 → 2 → 3→...), а в дальнейшем понижение на одну единицу (т.е. ...→3→2→1)
Собственно и все :)