Это решение при задании вручную этих чисел: 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.
Это решение при задании чисел в самой программе: 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; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.
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.
Это решение при задании чисел в самой программе:
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;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.