В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
В общем я написал прогу, но у неё куча недостатков
1)нет защиты от "дурака";
2)Имя вводится только числовое;
3)Возможно код можно упростить;
<span>Python3
output = open('output.txt', 'w', encoding='utf-8')
for line in open('input.txt', 'r', encoding='utf-8'):
output.write(line.upper())</span>
чесно говоря без них куда легче
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then s[i]:='*';
writeln(s);
End.
с ними только больше кода
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then begin
Delete(s,i,1);
Insert('*',s,i);
end;
writeln(s);
End.
Const
n = 30;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i], ' ');
if ((i mod 2) = 1) and ((a[i] mod 2) = 0) then s := s + a[i]
end;
Writeln(#13#10, 'Сумма найденных элементов ', s)
end.
Тестовое решение:
Исходный массив
49 -39 -17 6 24 38 20 50 6 -36 -4 -7 -31 41 -8 20 32 49 -48 -47 50 48 -41 -44 -26 -11 9 38 -24 -34
Сумма найденных элементов 22