Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Даны два неравных целых двухзначных числа. Возвести в квадрат большее из этих чисел и удвоить меньшее число. Написать программу для паскаль.

Ответ оставил Гость

Это решение при задании вручную этих чисел:
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.