Program pr;
var
a,s,p : real;
begin
writeln('Введите сторону квадрата');
readln(a);
s := a*a;
p := 4*a;
writeln('Площадь = ');
write(s);
writeln('Периметр = ');
write(p);
readln();
end.
Т Ира а=е
Не суди строго.Я пыталась
Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s : integer;
k : integer;
Chislo : Integer;
ChisloTmp : Integer;
begin
k:=0;
for i := 100 to 999 do
begin
s:=0;
Chislo := i;
for j := 1 to 3 do
begin
ChisloTmp := Trunc(Chislo/10);
s := s + (Chislo - ChisloTmp*10);
Chislo := ChisloTmp;
end;
if ((s and 1) = 0) then
Inc(k);
end;
Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;
ОТВЕТ:<span>Таких чисел будет 450 </span>