Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
На языке программирования Паскаль напишите программу для решения следующей задачи.
Три целых числа a, b и c, вводятся с клавиатуры. Составить программу, которая
удваивает каждое из данных чисел, если a случае заменяет их квадратами.

Answer 1

Відповідь:

var a,b,c:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

a:=a*a;

b:=b*2;

c:=c*2;

Label1.Caption:=FloatToStr(a);

Label2.Caption:=FloatToStr(b);

Label3.Caption:=FloatToStr(c);

end;

Пояснення: